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A Report Origination System (ROS) has been 
implemented^ using an inexpensive microcomputer 
system, to help ease the administrative burden 
facing Navy shipboard managers. The system is an 
interactive line editing system, with optional 
prompting, which enables a person who is unfami- 
liar with the report format to respond to aueries 
in oraer to eait a highly formatted report. 
Automatic error checking has been performed using 
a previous edition of the report as a basis. The 
system allows creation of new formatted reports. 
The use of a general purpose microcomputer system 
makes the editing system affordable to a large 
number of users and also provides a general com- 
puting facility for other uses. 
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INTRODUCTION 



The aoility to process information gathered from 
deployed military units throughout the world and tne ability 
to develop an accurate picture of the world status at the 
command and control level has been greatly enhanced with the 
advent of the computer. The processing time per amount of 
data has substantially decreased. However/ the Quantity and 
the numoer of required recurrinq reports has increased. 
This very trend was noted in a recent article which appeared 
in the Naval war College Review ( 1 ) . The author of the 
article noticed a 38% increase in the number of required 
recurring reoorts during the time he served as Executive 
Officer aboard, a destroyer. This increase in reporting 
requirements came during a time when paperwork reduction 
programs were supposedly in effect. 

Consider the method by which the reports have been gen- 
erated in the fleet. Presently/ aboard the majority of 
Naval vessels/ report generation follows a pattern similiar 
to the following. To oain an overview of what information 
is expected/ the originating officer (normally a division 
officer or aeoartment head) refers to previously submitted 
reoorts and to the manual which calls for the report. He 
tnen proceeds to write out/ in long hand/ the report content 
searching the various appendices of the manual for any codes 
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or other unique features required in the report. The entire 
report will be written out » even if much of the information 
remains unchanged from the previous report. This rough copy 
will then delivered to the Executive Officer for his recom- 
mendations and possible changes. After approval by the Exe- 
cutive Officer? the rough report will be delivered to the 
Commanding Officer for review. If the report has been 
approved by the Commanding Officer? it will be prepared in 
the smooth for submission. If the report is being sent out 
as a messaoe? it will be delivered to Radio Central where a 
Radioman will type the report while concurrently making a 
paper tape. If the report is being sent as a letter? a Yoe- 
man will type the report in the smooth. The smooth and 
rough copies will then be delivered to the originator for 
proof reading. If no corrections are needed? the smooth 
report will then be delivered to the Captain for releasing. 

with the increasing administrative burden being gen- 
erated by the demand for more reports together with the 
archaic methods by which reports have been generated? it is 
no wonder shioooard managers feel that their operational 
duties are oeing threatened by an administrative overload 
( 11 . 



This thesis proposes the use of an inexpensive? mul- 
tipurpose? microcomputer system as a tool capable of assist- 
ing the shioooard manager in meeting this challenge. The 
main objective of such a system is to let the system take 
over the responsibilities of reoort formatting? encoding? 
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and error detection, thereby reducing the time that the 



report originator must soend generating reports. 

As a user develops a familiarity with the system execu- 
tion, he must be given the option of selecting the amount of 



unfamiliar with system execution will have to be prompted as 
to what information he must ente 



A summary of the events leading to the proposal of 
using a computer prompted reoort i ng system will be presented 
in Chanter II. Chapter III outlines the objectives of a 
Reoort Origination System CROS) and discusses the hardware 
and software considerations of implementing such a system. 
A summary of recommendations for further development of ROS 
has been presented in Chanter IV. Some concluding remarks 
about ROS are contained in Chapter V. 



prompting information he is to receive. A user who is 
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BACKGROUND 



For some t ime> concern over the growing amount of 
paperwork has been receiving .increased attention at higher 
command levels. This chapter summarizes recent proposals 
which have resulted from this concern. 

A. RECENT EFFORTS TO REDUCE REPORTING REQUIREMENTS 
1. Composite reporting (COMPREP) 

Composite reporting was an attempt to reduce the 
number of reauired operational reports by combining common 
reports into one formatted report. A formatted report is 
one in which the sequence and position of the individual 
data elements have meaning. The data in the report has usu- 
ally been coded to reduce the amount of information 
transmission an a to allow automatic processing at report 
receiving sites. 

In 1971 a COMPREP system was designed and tested by 
Commander First Fleet. This system appeared to have consid- 
erable merit. However/ due to limited resources/ the system 
desian had not been sufficiently develooed to prove it an 
effective management information system. The main defi- 
ciency of the system was a coded output format which was 
difficult to understand. Also/ there was no automated 



i nhe ren t -e r ro r checking or correct i na capability 



2. X/C 13 Increment I (COMPREP) 

In 1975 an improved COMPREP system 121 was tested 
and evaluated. The improvements were: 

a. to provide operator intervention in order to allow 
on line error correction capabilities at the report receiv-* 
i ng site. 

b. to provide formal classroom as well as hands on 
training to fleet personnel users and receiving site editing 
personnel . 

c. to utilize preprinted forms and a single user's 
Handbook in order to ease the report preparation burden. 

Testing and evalutation of the proposed system was 
conducted by a private contractor using four units, of the 
fleet and the necessary shore supporting activities. The 
main purpose of the test was to show that shipboard data 
collection, message formatting, approval, release ana dis- 
tribution to ashore receiving facilities could work effec- 
tively. 



The recommendation which came out of the evaluation 
phase was that the developmental COMPREP sytem not be 
adopted, even trough it met the major goals. This recommen- 
dation was made because COMPREP was not an integrated 
reporting system which used easily drafted, readable, and 
flexibly formatted messages. 
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3. Composite Operations Reporting System (CORS) 



Following X/C 13 Increment I ; the basic goals of 
COMPREP were re-examined. Based on the results of this re- 
examination the CORS effort was initiated in 1976. 

The purpose of CORS was to describe alternatives of 
implementing a reporting system which would: 

a. provide timely and accurate data to all cognizant 
levels of command. 

O. minimize the reporting burden on the originator by 
integrating the reaui rements of four independent reporting 
systems (employment schedule; movement report; casualty 
report; and Navy force status report) into one simple; non- 
reaundant reporting system. 

c. provide significant improvements in the correct- 
ness; readability of the information; and communications 
system loading. 

The Naval Electronics System Command (NAVELEX), with 
guidance from the the Office of the Chief of Naval Opera- 
tions (UPNAV) CORS Steering Committee; proposed implementa- 
tion alternatives to meet the objectives. Of twelve origi- 
nal Droposals; four were selected by the CORS committee for 
further study. 131 

The four alternatives as they apply to the report 
originator were: 
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a . Alternative 1 

This alternative would require the originator to 
manually draft simple/ readable/ formatted messages using 
predefined forms and decision logic tables. 

b. Alternative 2 

This alternative was identical to Alternative 1 
exceot that the manually drafted messages would be replaced 
by a Report Origination System (ROS) which would guide the 
message drafter in generating error-free CORS messages via 
interactive computer prompting techniques. 

c. Alternative 3 

This proposal was an implementation of the con- 
cepts recommended from the CO^PREP tests. It would involve 
the use of an abbreviated check list to ensure that the 
information required by the command chain would be provided. 
The report would be written in narrative or abbreviated nar- 
rative English witn mimimal formatting required. The edit- 
ing and formatting functions would be done by data entry 
clerks working interactively with the incoming messages at 
the receiving sites. 

d. Alternative 4 

This alternative was identical to Alternative 3 
exceot that the editing ana formatting functions would be 



done automatically at the receiving site by using a 



spec i a 1 



purpose front-end text processor. 

The CORS steering committee was also asked to make a 
final recommendation to the Chief of Naval Operations as to 
which alternative would be feasible for implementation. The 
committee selected alternative 1 as the method to implement 
since it provided earliest capability. The committee did 
point out that aternative 2 provided the best benefits, but 
due to the cost of the eauioment in relation to immediate 
benefits this cost could not be justified at this time. 

It was the purpose of this thesis to demonstrate that 
alternative 2 can be implemented with a modest and inexpen- 
sive (S4M#) microcomputer based system. This system can 
grow to a more complex system when its usefulness has been 
demonstrated. This system gives immediate feedback to the 
report originator so that errors can be detected and 
corrected before they contaminate the data base. The system 
generates the proper format for the reports and the 
receoients do not need to spend the effort to edit or format 
the incoming data. 
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A REPORT ORIGINATION SYSTEM (ROS) 



As Pointed out in Chaoter II the CORS steering commit- 
tee Drooosed an automated reoort origination system to ease 
the Durden of report generation. The main objection to 
immediate implementation was that the cost of the equipment 
could not be economically justified for only report genera- 
tion. This chapter outlines the design objectives and an 
implementation scheme of a report origination system based 
on a microcomputer. The system provides a low cost imple- 
mentation of the reporting system and provides smaller ships 
with a general purpose computing facility useable for many 
other appl icat ions. 

A. ROS DESIGN OBJECTIVES 

1. Ease. of Use 

A shipboard report origination system must not 
require extensive training to operate the system. The sys- 
tem should be self-help ing and tolerant of operator errors. 

2 . Adaptability 

As the user becomes familiar with ROS program execu- 
t ion/ he aoes not require as much prompting as an unfamiliar 
user. The user is given control of several levels of 
promoting. The user should also have the option of 
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displaying the report in the norma) cooea form/ as it would 
oe sent in, or in a decoded interpreted form. 

3 . Apo 1 i cab i 1 i t y 

To serve as a useful tool, ROS must be applicable to 
a wide spectrum of reporting formats, in soite of the diver- 
sity and non-standardization of required reports. 

4. Error Detection 

The system must conduct error analysis throughout 
the execution of the program. If errors are detected, the 
user must have the ability to correct the errors without 
having previous work destroyed. 

5. Life cycle costs 

The system should be tailored to affordable 
hardware. Considerations must be given to purchase or ren- 
te) costs as we)) as hardware maintenance costs. The system 
should also be expandable when its general usefulness is 
ai scoverea . 

B. SYSTEM OVERVIEW 

1. Target Report - NAVFORSTAT 

Reports submitted by fleet units take on varying 
st ructureSf from strictly formatted reports with various 
coding schemes to reports written in the natural language. 
It would oe extremely difficult* if not impossible* to 



17 



aesiqn ana implement an easy to use system which would be 
applicable to all types of reports. Consequent 1 y t the Navy 
Force Status (NAVFORSTAT) report was chosen as a typical 
operational report which contains the basic structures which 
a report origination system must deal with. The data ele- 
ment was such a structure and was widely used in the ROS 
program. 

2 . Data El emen t 

A data element within the ROS program consists of 
four parts: 

a. Data Label 



A data label is an unique recoqn i zeab 1 e identif- 
ier for the data element. 



b. Code Area 



The code area is the reportable information 
which is pertinent to the data label. 

c. Error Command Area 

The error commands used to check input informa- 
tion at execution time are stored in the error command area. 

d. Prompt i nq Area 

Tnis area contains the questions which may be 
used to solicit tne necessary information to generate the 
report . 
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3. Program Structure 



A brief introduction to the software programs making 
up the Report Origination System follows: 

a . ROS 

This is the main program with which the user 
originates desired reports. The ROS program uses as input a 
data base (DAT) file and produces as output an updated DAT 
file ana a message (MSG) file. Appendix A contains a user’s 
guide for executing ROS on the Intel l e c • 8 microcomputer sys- 
t em . 



b. CREATE 



The utility program CREATE was used to create a 
DAT file. It was assumed that the command requesting a 
report will create the pertinent DAT file and send a copy of 
this DAI file to all commands reauired to submit the report . 
In this manner - the requesting command would be able to 
specify the report formats the Prompting questions/ and 
degree of error analysis. The user interested in creating a 
DAT file for a report which may be unique to his unit or for 
a report in which the DAT file doesn't exist/ may ao so by 
referring to the user's manual contained in Appendix A. 



c. Line Editor 



A line editing procedure/ LEDIT/ was implemented 
in the programs ROS and CREATE. This line editor allows the 
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user the capability of editing input information, 

4 . Files 

a. Data Base (DAT) 

A DAT file must exist for each report originated 
with the aid of ROS. The DAT file will either be furnished 
by the command requiring the report or can be created using 
t he CREATE program. 

The first record (128 bytes) of the OAT file has 
been reserved for the record map. The record map serves as 
the data element directory and has been used to randomly 
access data elements within the OAT file. Subsequent 
records of the OAT file contain the components of the data 
elements in a rotating pattern of: code and error command 
area (one record) followed by the prompting information 
(variable number of records). A portion of a DAT file has 
oeen expanded in Figure 1 to show the structure of the file. 

b. Message (MSG) 

The message file is created during the execution 
of the ROS program and contains the reoort which may be sub- 
mitted. The code area portion of the data element will make 
up the entries of the MSG file. The carriage return and 
line feed characters are aopended to the end of each entry 
to allow line by line printing of the data contained within 
the MSG file. 



20 



I 



R e c o r o Mao 



♦ 

I 



5CUMDR0 1 PERSN03 ...COM DR C D R / W . 
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--Code-------- . . . 

LINEAL NUM0E R 7 / T ...PER SN ... 



A PORTION OF A DAT FILE 
FIGURE 1 



C. HARDWARE 

Tne hardware system which was used to implement ROS con- 
sisted of: 

l . Compu t e r 

An Intellec-8 mainframe/ which was based on Intel's 
8080 microcomputer/ with loK bytes of random access memory. 

2. Display Terminal 

A Datamedia Elite 2500 cathode ray tube (CRT) 

display. 
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3. Auxiliary Memory 



A Shugart dual drive floppy disk system. 

The motivation behind the selection of this equip- 
ment was availability. This system does/ however/ point the 
economic benefits of such a system. Currently the cost for 
a system like this is approximately $6000. Of course/ the 
cost of a system may vary depending upon the capabilities a 
user desires. It was not the ourpose of this thesis to do a 
cost analysis of available equipment/ but rather to demon- 
strate that a Report Origination System may be implemented 
on a relatively inexpensive system. 

0. ROS SOFTWARE 

The ROS software package consists of the main program 
and a utility program CREATE. The ROS program was designed 
to make changes to the OAT file and CREATE was designed to 
create a DAT file if one did not exist. This section deals 
strictly with the software program ROS whereas CREATE will 
be discussed in Section E. 

The ROS program consists of six modules: 

1. Operating System Interface 

Certain input/ output and utility functions were 
carried out through system calls to the resident Monitor 
Control Program (CP/M). The detailed instructions pertain- 
ing to operation under CP/M may be found in the CP/M 
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Interface Guide(7). Only the actual functions which are 
used within the ROS software will be oiscussed here. 



a . Conso 1 e Output 

(1) Printchar - Outputs ASCII characters to the 
disc lay terminal. 



b. Disk Input/Output 

(1) Search - Search the disk directory for a par- 
ticular file. 

(2) Open - Make a file ready for further opera- 

t ions. 



(3) Close - Update the directory entry for the 
particular file after processing operations are completed. 

(y) Diskread - Read the next record (128 bytes) 
from the referenced file directly to memory area specified 
by direct memory access (DMA). 

(5) Disk write - Write a record from the accessed 
address in memory to the referenced file on the disk. 



c. Utility Functions 

(1) Set DMA - Set the 128 bytes buffer address at 
which subseduent disk input and output operations will take 
pi ace. 

(2) Lifthead - Lift the disk read/write head. 

2. Initialize Module 



The main function of the initialize module was to 
initialize main memory with the data elements selected by 
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the user to De included in the report. The submodules that 
carried out this function were: 

a . File Operat i ons 

The proper DAT filer if it exists* is opened and 
a MSG file is made . 

b. Selecting the Working Set 

To set up the working set* the record map is 
read into memory and the data labels are displayed* one line 
at a time* on the CRT display. The user may then select the 
data elements which are to be included in the report. If a 
data element is selected* the number of records which the 
data element occupies on the disk is calculated and stored 
in the working mao along with the disk location information. 
When all desired data labels have been selected* the user 
may enter "S" to stop further display of the data laoels. 
At this point* the working map contains the pertinent disk 
accessing information reaui red to orocess the report. 

c. Initialize Memory 

The information pertaining to the selected data 
elements is read into available memory until either memory 
is filled or all selected data elements have been read. If 
memory is filled* a logical variable will be set to true 
indicating that there are more data elements to be read from 
the disk. After the read operation is completed* pointers 
will be establised to allow referencing of the various data 



element fields (code/ error ana prompting). These pointers 
are aligned such that each area pointer will reference com- 
mon subfields. In figure If for example* the question con- 
tained in subfield 1 of the prompt area is the orompting 
information required to solicit the necessary data to be 
inserted in subfield 1 of the code area. Likewise* the sol- 
icited information is to be checked for errors according to 
the error commands contained in supfield 1 of the error 
area. This pointer alignment is maintained throughout the 
execution of the ROS program. 

3. Editing with Instructions 

The main function of the edit module was to solicit 
the necessary information from the operator which may be 
correctly entered into the report text. This function was 
carried out by the following submodules: 

a. Solicit Information 

The prompting question is displayed on the CRT 
screen. Ihe operator enters a response at the keyboard. 

b . Editing 

The response is checked for errors according to 
the error commands pointed to by the error pointer. (The 
error analysis technicue will be discussed in Section 5 as 
it applies to both editing schemes.) If an error occurs* a 
diagnostic warning is given and the user may reenter the 
corrected response. when the solicited information is 
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deemed correct/ it is saved in a code buffer for updating 
the OAT file and entry into the report . 

4. Editing without Instructions 

In this environment/ the user acts directly upon the 
coded information. This allows the experienced user quick 
access to subfields reauiring changes without having to go 
through a prolonged question and answer period. The user 
uses the features of the line editor (Appendix A] in editing 
the coded information. Briefly/ the line editor uses two 
buffers: the old and new buffers. Information may be passed 

between the buffers using the special characters defined to 
accomplish different functions. These special characters 
are defined in Table 1 of Appendix A. 

a. Information Entry and Editing 

A copy of the coded information is duplicated in 
the old buffer of the line editor. The data label is 
immediately moved to the new buffer where it is protected 
from editing by the user. The user may now duplicate any or 
all information from the old buffer to the new buffer or may 
enter new data from the keyboard. A carriage return signals 
the Program that the editing function is complete and error 
analysis may begin. After the error analysis is complete/ 
the new buffer contents (new information) is used to update 
the code area of the data element in the same manner as in 
editing without instructions. 
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5. Error Analysis 



Although error analysis is closely connected with 
the editing process# it actually exists as a separate module 
in the proaram. The function of the error analysis module 
was to prevent contamination of the data Dase by entry of 
incorrect data. No attempt has been made to list all possi- 
ble sources of errors and generate countermeasures against 
the occurrence of these errors but rather# to develop a sys- 
tem which may be expanded as experience may reauire. Thus 
the error analysis mooule is broken down into submodules of: 
command recognition and command execution. 

a. Command Recognition 

The error command (one alphabetic or numeric 
ASCII character) is compared to entries contained in. the Do 
command (DOSCMD) procedure. when the proper match occurs# 
an appropriate procedure call will be made. An error com- 
mand listed in. the DAT file for which no execution pro- 
cedures exist within the ROS program is an error introduced 
at the time the DAT file was created. If no match occurs 
during execution# a diagnostic will be given and execution 
will terminate. In order to maintain the pointer alignment 
to each subfiela# a null error command (0) is used. A match 
on the null command simply returns program flow to the cal- 
ling procedure without doing any error analysis. 
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b. Command Execution 



This submodule consists of all error diagnostics 
whicri may oe called to carry out the error analysis. It is 
broken down into functional units each of which is a pro- 
cedure designed to check for certain error conditions. The 



error analysis 


c aoab i 1 i t y 


may 


be extened 


by inserting 


new 


commands i n 


the DOSCMD 


procedure 


and entering 


the 


cor respond i ng 


procedures 


t 0 


check the 


data for 


the 



occurrence of the error. A difference between the error 
analysis techniques applied to the input and editing modes 
should be pointed out. In the instructional mode, error 
analysis is applied to one subfield for each call to the 
error module, whereas in the non- i ns t rue t i ona 1 mode all sub- 
fields of the code area are analyzed with one call to the 
error analysis module. 

6. Output 

After; all the data elements within memory have been 
processed, an updated version of the coded information will 
exist in memory. This coded information serves as the basis 
for updating the DAT file and actual creation of the report. 
Since the coded portion is the only data to have changed 
during execution of the ROS program, it is the only informa- 
tion required to be written to the DAT file. Utilizing the 
working map, which gives the record number within the DAT 
file where the code record must be written, the proper 
access may be made and the uodated record written to the 
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proper DAT file. A copv of the coded information with 
appended carriage return and line feed characters is saved 
in a temporary buffer until a full recoro has been accumu- 
lated. This record is then written to the MSG file. 

After completion of the output phase/ if more data 
elements exist to be processed/ the elements will be read 
into memory and the pointers will be reset. The editing 
process will continue until all data elements have been pro- 
cessed. After all data elements have been processed/ the 
DAT file and the MSG file will be closed. 

E. CREATE 

The utility program CREATE allows the user the ability 
to create a data base file with which a particular report 
may be generated. The program was designed with the thought 
that persons familiar with computers at the command request- 
ing the report/ would create the appropriate DAT file and 
forward a copy to all reporting commands. Thus the program 
execution is somewhat more cryptic and "maaical". However/ 
this is not meant to discourage the shipboard manager from 
using the system. A user's guide is provided [Appendix A] 
and the system execution may be mastered in a short time. 

The DAT file consists of a directory element/ the record 
map/ and repetitive entries of code/ error commands and 
promoting information. The entries are organized into 
recoros/ each record being 128 bytes. The record map occu- 
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Dies the first record of the file. The code area and the 
error comrranos for each data element share one record. The 
code area is located at the first of the record whereas the 
error commands are located at the end of the record. Any 
unused space between the code and error areas contains 
binary zeroes. The prompting area may occupy more than one 
record. Since the coce area begins on a record boundary and 
together with the error commands will take up no more than 
one record* the prompt area will always begin on a record 
boundary. This structure allows random access to the record 
where each data element begins within the file. To effect 
this random access* the data element identifier* the data 
label* is stored within the record map* along with the 
necessary disk locating information. It then becomes a 
matter of reading the record map* selecting the particular 
data label and setting up to read the information of the 
desired data element. 

The CREATE program consists of the following modules: 

1. Initialize 

The function of the initialize module was to make a 
DAT file* if one did not already exist- If a DAT file 
already exists* a diagonstic warning will be given and pro- 
gram execution will cease. The user may then remove the DAT 
file* if no longer desired* or may use it as input for the 
ROS program to generate the desired report. 
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Assuming a previous DAT file does not exist? 



a DAT 



file will be made. Specific pointers to available memory 
(memory between the CREATE program and the resident ooerat* 
i ng system) will be established with the first 128 bytes of 
available memory being reserved for the record map. All 
data to be entered in the DAT file will be entered in a 
sequential manner between the record map and the operating 
system. 

2. Input 

After the DAT file has been opened and the pointers 
set? the user is free to enter data into the DAT file. 
Since the DAT file is constructed in memory in a sequential 
manner? the entries must be in the order of code? error com- 
manas? and prompting information. The features of the Line 
Editor (Appendix A] are used to edit the entered text. When 
the user is satisfied with the particualar entry? a special 
character defined in Table of Aopendi x A is entered and the 
entered data is storea in the DAT file memory area. 

Editing and error analysis is left up to the user. 
The features of the Line Editor allow ample capabilities to 
make corrections to entered data. Once the special charac- 
ter? denoting the type of entry? is given? the input data is 
stored and the user no longer has access to it. 
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3 . Finish 



If available memory is f i 1 led before all data ele- 
ments have been entered* the existing memory image of the 
OAT file will be written to the disk and the pointers reset. 
After all data elements have been entered# a back slant may 
be entered to indicate end of file. At this. time the memory 
image of the DAT file is written to the disk file and the 
DAT file is cl osed. 
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IV. RECOMMENDATIONS 



The i mp 1 emen t a t i on of a Report Origination System (ROS) 
oesigneo to help ease the administrative burden facing the 
shipboard manager has been discussed. This has been the 
first known attempt of implementing such a system and subse- 
quently some arbitary design decisions were made that have 
become apparent weak points. In addition, complete develop- 
ment of the system has been curtailed due to time con- 
straints. A follow-on thesis aimed at further development 
is planned and therefore this chapter summarizes some of the 
areas that could be further developed. 

A. DISK DIRECTORY (RECORDMAP) 

Currently the record mao is limited to 128 bytes which 
is insufficient space for storage of long or a large number 
of data labels. Admittedly, this method was an ad hoc pro- 
cedure and a more efficient method is required. One Possi- 
ble method may be to use a hash coding scheme to reduce the 
size of the entries. 

B. FIXED DATA LABEL LENGTH 

Presently all data laoels must be of eaual length 
throughout the OAT file. The CREATE user has the responsi- 
bility for ensuring that the length of all data labels will 
be the same. Although this restriction simplifies program 
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coding ana decreases memory usage (important considerations 
in microcomDuter usage) it was considered much too restric- 
tive for general acceptance. A prime consideration for 
fixed data lengths was for ease of insertion in the record 
mao. If the method of maintaining the disk directory were 
changed* the emphasis on using a fixed data label length 
would lessen. Another use of the data label must be con- 
sidered before removing the restriction. In setting up the 
editing puffers for subseguent edit operations* the data 
labels are moved to the appropriate buffers dependent upon 
the fixed data label size. Thus* to continue to use this 
method of editing* an alternative approach to moving vari- 
able length data labels must be sought. One method to han- 
dle the variable length problem might be to mark the end of 
the data label with a special character. Characters could 
then be transferred between buffers until this special char- 
acter is encountered. 

C. LACK OF MNEMONICS USE IN THE LINE EDITOR 

The line editor commands have no mnemonic value. This 
resulted as a trade~off for programming efficiency. Rather 
than use a series of comparing statements to identify the 
inout character* it was decided to use a sequent i al group of 
characters and index to the correct procedure call by a case 
statement. A table which translates mnemonic code to the 
code used in this program could be added to make the line 
editor similiar to other editing systems. 
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D. BACK UP FILES 



No provisions have been provided to set up a back up 
file. This could be accomplished by copying the DAT file to 
another file (BAK) before the editing of the DAT file 
beg i ns . 

E. OTHER SUPPORTIVE SOFTWARE 
1. Headings 

Software should be developed to assign heading 
information (date time orouo, addressees* classification* 
etc.). This could be patterned after current techniques 
(Aodressal Indicator Group) in use in the Navy. 

d . Optional Display List 

As noted in the objectives of ROS* a user should 
have the option of displaying reported information in coded 
or interpreted form. This option has not been i nco roo r at ed * 
out should be relatively easy to do. By utilizing a pointer 
alignment scheme* such as previously discussed* the prompt- 
ing question together with the subsequent response could be 
displayed for each data element edited during the session. 
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V. CONCLUSIONS 



ROS provided an interactive feed back loop of computer 
generated prompting instructions/ user responses and error 
analysis. This system permits error detection and correc- 
tion to be carried out by individuals who generate the 
report and were therefore most likely to recognize serious 
errors in report content. Errors in format were unlikely 
oecause format design would be generated in the computer. 
In the present method/ the recioient of the report was asked 
to perform error detection. The recipient was generally 
able to detect errors in format only and was unable to 
correct the errors in content without additional information 
from the report originator. 

ROS was an easy to use system with built-in flexibil- 
ity. As th'e' user becomes familiar with the report struc- 
ture/ he may choose to limit the amount of prompting 
instructions he will receive. 

Although ROS was designed using the NAVFORSTAT report 
as a pattern/ it will be applicable to any report which uses 
line by line formatting. Since most Navy reports fit into 
this category/ ROS should be applicable to a wide spectrum 
of reports. 
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Tne secondary benefits of having an expandable* 
tipurpose computing facility aboard naval vessels can not be 
ignored. As shipboard users become familiar with the com- 
puting potential available* the base of application develop- 
ment will be increased by orders of magnitude. Many appli- 
cation programs have already been developed at the Naval 
Postgraduate School and are ready for further testing. 

The Report Origination System (ROS) has been imple- 
mented on an inexpensive microcomputer system and shown to 
be an effective tool in helping the shipboard manager meet 
the challenge of required recurring reports. 
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APPENDIX A 



User's Guide 



3 A 



ROS Program 



1 . I n t r oauc t i on 

The purpose of this User’s Guide is to assist the user 
in generating required recurring recorts through the use of 
the Report Origination System (ROS). The details of the 
program logic may be found in the body of the thesis 

(Chapter 1 1 1 1 • This guide is a step by step overview of 

what the user should expect while executing ROS. This guide 
describes implementation on an Intellec-8 microcomputer sys- 
tem which uses the resident operating system. 

2 . Initialization 

The program ROS is initiated by typing 

ROS <filename> <cr> 

<cr> stanas tor carriage return. The <f i 1 ename> must be the 
name of a data base (DAT) file which exists on the diskette. 
It is assumed that the command reauesting a particular 
reoort will supply the user with a diskette containing the 

pertinent DAT file. However, if the user is setting up a 

file to handle a recurring report unique to his command or 
if he has not been furnished a DAT file, he may create the 
DAT file by referencing Section(7) of this guide. 

3 . Execution 



39 



If the Droper DAT file e*ists> it will be opened and 
the data labels contained within the file will be displayed 
on the CRT screen. The user may now select (by entering a 
"Y" or "N M under the data label) the data elements which are 
to be included in the report. At this point the user will 
be queried whether or not he wishes to be prompted. A user 
who is unfamiliar with computer line editing procedures 
should select to be prompted. After the user becomes fami- 
liar with the line editor (Section(8)J/ he may find it 
easier to generate a report by using the limited prompting 
mode. A positive response ( " Y " ) to this auery will allow 
the user to edit the coded area of the report directly using 
the features of the line editor (Section(8)]. If a neqative 
response ("N") is given/ the user will be prompted by 
appropriate questions to solicit the necessary information 
for coding into the report. 

4 . Limited Instruction Mode 

If the user selects to edit the coded information 
directly/ the coded information last submitted will be 
entered into the old buffer and the data label will be 
entered into the new buffer (Sec t i on C 8) ) . Now/ using the 
features of the line editor/ the user may duplicate 
unchanaed information to the new buffer or enter new infor- 
mation from the keyboard. When the editing process for each 
data element is completed/ a carriage return may be entered 
to signal the ROS program to check for errors. If an error 
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has occurred/ a diagnostic will be given and the old buffer 
contents (old information) as well as the new buffer con- 
tents (new information) uo to the Doint of the error will be 
disolayed. The user may now make the appropriate correc- 
tions/ duplicate the remaining information and enter a <cr>. 
when the coded information is correct it will be saved in 
the coded area for upoating the DAT file. Execution in this 
manner continues for each of the data elements selected at 
the beginning of the session. 

5. Instructional Mode 

During the instructional mode of ©Deration/ questions 
will be written on the CRT screen. The user will key 
responses to these question from the keyboard. As incuts 
are received by the ROS program, error analysis will be con- 
ducted. If an error occurs, a diagnostic will be given and 
the user will have an ooportunity to give another response. 
Correct resoonses are retained in the new buffer (Sec- 
tion 1 8 J J until all inouts for the working data element have 
been gathered. After a data element update is complete the 
information will be stored in the code area for uDdating the 
DAT file. Execution continues in this manner until all pre- 
viously selected data elements have been orocessed. 

6. End Execution 

rt hen all data elements have been processed the ROS pro- 
gram will write the compiled report to the diskette. The 
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report may be referenced under the file < f i 1 ename> . MSG 



CREATE 



1 . Int roouc t i on 

The utility program CREATE was designed ana written to 
allow the user the ability of building a data base (DAT 
file). The OAT file contains information specified by the 
most recent report as well as the prompting questions the 
operator is asked to respond to in order to collect the 
necessary information. 

A portion of a OAT file has been expanded in Figure 2 
to show the structure of this file. The first 128 bytes of 
the DAT file are reserved for the record map. The record 
mao is a summary of the data labels contained within the OAT 
file as well as the disk storage location of the first 
record of each particular data element. Disk locations are 
maintained by record extent and record number within the 
file. 
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Record Map 



I 



5COMDR01PERSN03 ...C OMDR COR/W. 

Coae Area ! Error 

I .HATCH/018689-20 [binary zeroes... A / 

Commands ! -------------------------------------------- 

A/N^rthAT IS YOUR COMMANDING 0 

Prompt i ng Area------ — 

F F I C E J? ' S RANK7/HIS NAME7/HIS 

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — * — — Code — — — — — — — — # i ^ 

LINEAL NUMBER7/T ...PE R S N ... 

A PORTION OF A OAT FILE 
FIGURE 2 

Information pertinent to the reoort is contained within 
trie data element. A data element consists of a data label? 
a coae area? error check commands and a prompting area. The 
data label is a unique recognizable identifier for each line 
of the proposed report. For example in the Navy Force 
Status (NAVFORSTAT) reoort the data label? COM DR? is used to 
reference information pertaining to the Commanding Officer 
of the particular reporting activity. The code area con- 
tains the reoortable information pertaining to the data 
label. Error check commands are used to check input infor- 
mation at execution time. The questions to be asked to sol- 
icit the information needed to generate the reoort are 
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contained in the prompting area. With the exception of the 
record map and the data label P E R S N * the example given in 
Figure 2 represents one data element. Notice that data ele- 
ments having more than one subfield description are 
separated by a sub-field delimiter "/". This delimiter is 
used in the error analysis routines to set up fixed or vari- 
able length subfields. 

Each subfield of the error analysis command corresponds 
to the same subfield of the cooed portion. For example com- 
mands listed in Figure 2 would indicate a check of subfields 
1 ana 2 of the referenced data label for alphabetic charac- 
ters only and to check subfield 3 for numerics only. 

2. Initiation 

The CREATE program is invoked by typing 
CREATE <filename> <cr> 

The <filename> must be a unique mnemonic (8 or less charac- 
ters) for the particular report to be generated. For exam- 
ple/ 

CREATE NFS <cr> 

may be used to create a data base for a NAVFQRSTAT report . 
At this point execution begins and the user is asked to 
specify the length of the data labels to be used within this 
Particular report. The user should note that since the data 
labels are duplicated in the record map/ the lengths should 
oe minimal ana in no case should they exceed a length of 9. 

3. Execution 
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Tne operator is now free to enter text from the console 
using the features of the line editor [Section [9]] and spe- 
cial characters required to specify the type of input. 
These special characters are summarized in Table 1. Keep in 
mine CREATE expects text input in the order of code# error 
check commands# and Questions. 

Text is storeo in memory until an ena of file is 
encountered or the memory region is filled. At this time 
the memory image of the OAT file is written to the disk and 
memory pointers reset or the system reboots in the case of 
ena of file. The end of file is signalled by entering a 
oack slash. 



CHARACTER 


DESCRIPTION 


ASCII 


FUNCTION 


1 

1 


Bar 


7CH 


end 


0 f 


code area 




T i 1 ae 


7EH 


end 


o f 


error commands 


r 


Up-a r row 


5EH 


end 


0 f 


prompt area 


\ 


Back slant 


5CH 


end 


o f 


file 



TABLE 1 

special character MEANINGS IN PROGRAM CREATE 



46 



Line Editor 



1 . I n t r oduc t i on 



ROS and CREATE use the features of a line editor which 
is incorporated in the programs as the procedure LEDIT and 
is called when the console is to be read for input. 



The procedure LEDIT uses two 90 bytes buffers/ the old 
Duffer and the new buffer. As the names imply# the old 
buffer contains information entered at the last console read 
operation. The new buffer contains information which is 
currently being read. The information in the buffers may be 
transferred between the buffers by entering control charac- 
ters which are summarized in Table 2. 

CONTROL 

CHARACTER DEFINITION 

A Acts as a backspace and rub-out command on the new 
line only. (same as rub-out on many terminals). 

B Replace the old line with the contents of the new 

line# empties the new line. 

C Copy one character from the old buffer to the new 

ou f f e r . 

D Copy the remaining characters from the old line to 
the new line echoing each character. Then ter- 
minate the edit. 

i 

E Toggle the insert mode. Begin insert prints " < M # 
end inserts prints ">". Position of the old 
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pointer aoes not change during insert 



Delete the new line without updating the old line. 
Terminate the edit. 



Display contents of the old and new buffers with 
control characters interpreted (e.g. " t I " for TAB, 
H tG" for BELL, etc.). 



Copy remaining characters from the old line to the 
new line, echoing each. Do not terminate the edit. 



Tab. A tab stop is defined every four characters. 
Same as TAB on many terminals. 



Line feed. Terminate the edit. 



(not used) 



Copy remaining characters of old line to new line 
without echoing. Do not terminate the edit. 



Carriage return Terminate the edit. 



Backspace old buffer and new buffer one space. 



Copy Characters fom the current position of the old 
pointer to the next character typed. 



Delete characters from the current Position of the 
old pointer to the next occurence of tne next char- 
acter typed. Echoes a for each character 
deleted. 



Delete the new line and reset the old pointer to 
the start of the old buffer. 



Display the remaining contents of the old buffer 
and all of the new buffer. 



Delete one character from the old buffer 



Echo a 



for the a e 1 e t e d character 



Only used in CREATE to transmit information in the 
new buffer to storage in memory. Used when input 
from the console exceeds one crt line. 



Copy characters from the old buffer to the new 
buffer ud to the next TAB character. 



Escape character. Turns off any special meaning of 
character which follows. Enters the character 
into the new buffer and echoes the characters (e.g. 
"CTLvCTLm" will echo Tm). 



(not used ) 



Deletes characters from current position of old 
buffer through next character typed. 



Copy the remaining characters from the old buffer 
to the new buffer echoing each, replace the old 
buffer with the new buffer. Do not terminate the 
edit. 



Copy characters from the old buffer to the new 
buffers through the next occurence of the next 
character typed. 



NOTE:' The control character is entered by depress- 
ing the CTRL key and then simultaneously depressing 
the the desired function key. 

TABLE 2 



LINE EDITOR FEATURES 



A Samp I e Session 



This is an example of how a portion of a Naval Force 
Status ( N A VF ORS T A T ) data base file may be created ana then 
subsequently updated to generate a report. The brackets < > 
are used to indicate keyboard entries. Comments* as they 
apply/ are enclosed within / * comment * / . Text proauced 

during program execution will be as it would appear on the 
sc reen . 

A. CREATE Execution 

A > /* system is ready to start */ 

<CRfcATE NFS> <cr> 

LENGTH OF DATA LABELS TO BE USED? 

<5> <c r > 

EXPECTING CODE INFO /* prompt message */ 

<C0MDR C D H / J . P. JONES/OOO 1 1 1 -1 0 ! > <cr> /* the bar (!) will 
not oe echoed */ 

EXPECTING ERROR COMMANDS 

<A/A/N"’> <cr> / * "> will not be echoed * / 

EXPECTING PROMPT INFO 

<WHAT RANK IS YOUR COMMANDING OFFICER?/HIS NAME?/HIS LINEAL 
NUMBER?t> <cr> /* T will not be echoed */ 

EXPECTING CODE INFO 

<PERSN NE/0236/0230/0210 ! > <cr> 

EXPECTING ERROR COMMANDS 
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<A/N/N/N"«> <cr> 



EXPECTING PROMPT I MFO 

<TYPE OF PERSONNEL?/STRUCTURED STRENGTH?/ AUTHOR I ZED 
S T R t NG T H? / A SS I GN ED STRENGTH?t> <cr> /* T will not be echoed 
*/ 

EXPtCTlNG CODE INFO 

< > /* that is enough for now */ 

A> 

/* A file (NFS. DAT) now exists */ 

l 

B . ROS Execution 

To send out oersonnel information* a user simply uses 

ROS. 

A > /* system is reaay */ 

<ROS NFS> <cr> 

SELECT DATA ELEMENTS YOU DESIRE TO WORK WITH 
COMDR PERSN 
<N> <Y> < c r > 

are DATA LABELS TO BE INCLUDED IN THE REPORT 

< Y > <cr> 

DO YOU WISH TO BE PROMPTED 
<Y> <c r > 

TYPE OF PERSONNEL? 

<NE> <cr> 

STRUCTURED STRENGTH? 

< 026 b> <cr> 

AUTHORIZED STRENGTH? 
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<0230> <cr> 



ASSIGNED STRENGTH? 

<0218> <cr> /* gainea 8 peoole */ 

A > /* only one data element was selected */ 

/* without promoting */ 

/ * execution is the same to question: * / 

DO YOU WISH TO BE PROMPTED 
< N > < c r > 

PERSN NE/0236/0230/0210 

PERSN <ctlZ> <1> <cr> by a 1 (not echoea) */ 

PERSN N£ / 02 36 / 0 2 30 / 0 2 1 < 8 > <cr> /* no new line created* 
filled in current line * / 

PERSN ME/0236/0230/0218 
A> 

/* in either case* message looks like: */ 

PERSN NE/0236/0230/0218 



just 
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/* *********************#*####*#######*#***. ************** 

A REPORT OBI SI NATION SYSTEM DESIGNED FOR SHIPBOARD 
USE IN THE GENERATION OF REQUIRED RECURRING REPORTS. 

THE SYSTEM USES AS INPUT A DATA BASE (DAT) FILE AND 
PRODUCES AS OUTPUT A MESSAGE (MSG) FILE. THE 
SOFTWARE SYSTEM CONSISTS OF TWO PROGRAMS: ROS AND 

CREATE. CREATE IS USED TO CREATE A DAT FILE AND ROS 
IS USED TO UPDATE THE DAT FILE AND CREATE A MESSAGE. 

THE ROS PROGRAM IS MADE UP ON THE FOLLOWING MODULES: 

1. OPERATING SYSTEM INTERFACE 

2. INITIALIZE 

3. EDITING 

4. ERROR 

5. OUTPUT 

THE CREATE PROGRAM IS MADE UP OF THE FOLLOWING 
MODULES: 

1. INITIALIZE 

2. INPUT-EDITING 

3. FINISH 

BOTH PROGRAMS WERE DESIGNED FOR EXECUTION ON THE 
INTELLEC-8 MICROCOMPUTER SYSTEM , WITH CROSS COMPILATION 
BEING DONE ON AN IBM 360/65. 

* * *** ******** ***** *** *********************** ******* ** * */ 
1 00 H: /* PROGRAM TO BE LOADED INTO MEMORY STARTING HERE */ 

/ * ******** ** ************ ****** ****************** ******** 
OPERATING SYSTEM INTERFACE DECLARATIONS. 

* ********** ** **************** *************** ********** * / 
DECLARE 



LIT 


LITERALLY 'LITERALLY', 


BOOT 


- LIT 


'O' . 

• 0005H', /* ENTRY POINT 


ENTRY 


LIT 


TRUE 


LIT 


' 1 ' , 


FALSE 


LIT 


•O' , 

• WHILE TRUE' , 


FOREVER 


LIT 


CR 


LIT 


' ODH ' , 


LF 


’ ‘LIT 


•OAH' , 


CTI 


LIT 


'O' , 


CTS 


LIT 


' 1 ' , 


DCNT 

BDOSA 




BYTE, 

ADDRESS INITIAL (0006H) , 


S5D0S 


BASED 


BDOSA ADDRESS; 



/ if ******** ******************** ************* ************* 

INITIALIZE DECLARATIONS 

********************* ******** ************************* */ 



DECLARE 

PROMPT 

RM 

RMPTR 

DLSLEN 

NUMSREC 



BYTE INITIAL (FALSE), 
ADDRESS INITIAL (80H) , 
3ASED RM BYTE , 

BYTE, 

BYTE, 



WORKSMAP ' ADDRESS, 

WMPTR BASED WORKSMAP BYTE, 

EXTSRN BASED W03KSMAP ADDRESS, 
NUMSELEMENTS BYTE, 

ESRJA ADDRESS, 

ER BASED E$R$ A BYTE, 
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NR $ READ BYTE, 

NR BYTE, 

SAVESEXT BYTE, 

SA VESRN BYTE, 

DAT $AREA ADDRESS, 

DAT BASED DATSAREA BYTE, 

BASESDATS AREA ADDRESS, 

TSDATSARE A ADDRESS, 

CODESA ADDRESS, 

CODE BASED CODESA BYTE, 

BSCODES A ADDRESS, 

TOPSMEM ADDRESS, 

MSGSARZA ADDRESS INITIAL (80H) , 

MSG BASED MSGSAREA 3YTE, 

MORE BYTE INITIAL (FALSE) , 

HOLDSWM ADDRESS; 

/* ** **** ********** ** **** **** **** * ** ***** ******* ********* 



EDITING DECLARATIONS 

******************************************** ********* * *y 

DECLARE 

EUPFER (180) BYTE, 

SIZESNBUF LIT »90». 

NEWSBUF ADDRESS, 

NBUF BASED NEWSBUF BYTE, 

NPTR BYTE, 

OLDSBUF ADDRESS, 

OBUF BASED OLDSBUF BYTE, 

OPTR BYTE, 

NB ADDRESS, 

TN BASED NB BYTE, 

ADDRESS. 

BYTE INITIAL (FALSE) , 



OB 
INSERT 
PERCENT 
BS 

BELL 
TAB 
EOP 
EOC 
ERR 
CTLZ 
RUEODT 
ENDSFILE 
CHAR 



LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

LIT 

BYTE, 



25H ' 

* 08 H' , 

* 07 H 1 , 
' 09H ' , 
•5EH* , 
' 7CH ' , 
' 7EH ' , 
MAH', 
' 7FH ' , 
' 5CH * , 



/* BACKSPACE */ 



/* UP-ARROW; END OF PROMPT */ 
/♦BAR ; END OF CODE */ 

/* TILDE; END OF ERROR */ 



/♦BACK SLANT */ 



PROMPTSAREA ADDRESS; 

/ * ****** ** ******** * ************************************* 

ERROR DECLARATIONS 



****************************************************** * / 
DECLARE 

ERR A ADDRESS, 

ECMD BASED ERRA BYTE, 

BERRA ADDRESS, 

WARN BYTE INITIAL (FALSE) ; 

/ * ****************** ******** ****** ******** ************** 

OUTPUT DECLARATIONS 

* ********** ********** ********** ************ * *** ****** * */ 
DECLARE 

EATSFCB ADDRESS INITIAL (5CH) , 

DFCE BASED DAISFCB BYTE, 

MSG3FCB (33) BYTE, 

PRINTSLABEL BYTE INITIAL (FALSE) ; 
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/ * ****** ************************************************ 



OPERATING SYSTEM INTERFACE MODULE 

FUNCTION: SERVES AS AN INTERFACE TO THE RESIDENT 

OPERATING SYSTEM. IT ALLOWS INPUT/OUTPUT OPERATIONS 
TO EE HANDLED BY SYSTEM CALLS. 

************************* ******* ********************** */ 

CRTIN : PROCEDURE BYTE; 

DO WHILE INPUT (CTS) ; 

END: 

RETURN NOT INPUT (CTI) AND 07FH; 

END CRTIN; 

READC: PROCEDURE BYTE; 

DECLARE C BYTE; 

IF (C:=CRTIN) >= 1 1 0S000 1 B /* LOWER CASE A */ 

AND C <= 0 1 1 1$ 1 0 1 OB /* LOWERCASE Z */ THEN 
C = C AND 1 0 1$ 1 1 1 1 B; /* 3EC0MES UPPER CASE */ 
RETURN C; 

END READC; 

MONI: PEOCEDURE (FUNC, INFO); 

DECLARE FUNC BYTE, INFO ADDRESS; 

GO TO ENTRY; 

END MONI; 

MON2; PROCEDURE (FUNC, INFO) BYTE: 

DECLARE FUNC BYTE, INFO ADDRESS; 

GO TO ENTRY; 

END MON 2; 

PRINTCHAR: PROCEDURE (3) ; 

DECLARE B BYTE; 

CALL MONI (2, B) ; 

END PRINTCHAR; 

PRINTCHARI: P-ROCEDURE (C) ; 

DECLARE C BYTE: 

IF (C AND Oil 0S0000B) = 0 /* CONTROL CHAR */ THEN 
DO; 

CALL PRINTCHAR (EOP); 

CALL PRINTCHAR (C OR 40H) ; 

END; ' ' 

ELSE 

CALL PRINTCHAR (C) ; 

END PRINTCHARI; 

CRLF : PROCEDURE: 

CALL PRINTCHAR (CR) ; 

CALL PRINT CHAR (LF) ; 

END CRLF; 

PRINT: PROCEDURE (A) ; 

DECLARE A ADDRESS; 

CALL MONI (9, A) ; 

CALL CRLF; 

END PRINT; 

SETSDMA: PROC EDURE ( A) ; 

DECLARE A ADDRESS ; 

CALL MONI (26, A) ; 

END SET3DMA; 

DISKREAD: PROCEDURE (A) BYTE; 

DECLARE A ADDRESS; 

RETURN MON2 (20, A) ; 

END DISKREAD; 
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DISKWRITE: PROCEDURE (A) BYTE: 
DECLARE A ADDRESS: 

RETURN MON2 (21 - A) ; 

END DISKWRITE; 



OPEN: PROCEDURE (A) BYTE; 
DECLARE A ADDRESS; 

RETURN MON2 (15,A) ; 

END OPEN; 

CLOSE: PROCEDURE (A) BYTE; 
DECLARE A ADDRESS; 

RETURN MON2 (16, A) ; 

END CLOSE; 

SEARCH: PROCEDURE (FCB) BYTE, 
DECLARE FC3 ADDRESS; 
RETURN MON2 (17, FCB) ; 

END SEARCH; 

MAKE: PROCEDURE (FCB) BYTE; 
DECLARE FCB ADDRESS; 
RETURN MON2 (22, FCB) ; 

END MAKE; 

LIFTHEAB: PROCEDURE; 

CALL MON1 (12,0) ; 

END LIFTHEAD; 



MOVE: PROCEDURE (SOURCE -DEST, N) ; 

DECLARE 7 SOURCE ,DEST) ADDRESS, 

(S BASED SOURCE, D BASED DEST , N ) BYTE; 
DO WHILE (N: =N- 1) <> 255; 

D=S ; SOU RCE=SOU RCE+ 1 ; DEST=DEST+ 1 ; 

END; 

END MOVE; 

ERROR: EROCED UR E ( I) ; 

DECLARE I BYTE; 

DO CASE I; 

/* CASE 0 OVERWRITING 



CALL PRINT 
CALL PRINT 
CALL PRINT 
CALL PRINT 
CALL -PRINT 
CALL PRINT 
CALL PRINT 
CALL PRINT 

END: 

GO 10 BOOT; 

END ERROR; 



ERROR CODES */ 
OVERWRITING ERROR CODES $'); 
DISK READ ERROR S') ; 

ERROR COMMAND NOT DEFINED $• ) 
A MESSAGE FILE EXISTS S') ; 
DISK WRITE ERROR S' ) ; 

OUT OF DIRECTORY SPACE S'); 
DAT FILE NOT PRESENTS') ; 

MSG FILE NOT PRESENTS' i 



/ * ** ****** ************** ******************* ************* 

INITIALIZE MODULE 

FUNCTIONS: TO OPEN THE APPROPRIATE DAT FILE, MAKE 
A MESSAGE FILE AND ALLOW THE USER TO SELECT A SET OF 
DATA ELEMENTS TO WORK WITH. IT THEN INITIALIZES 
MEMORY WITH THE SELECTED DATA ELEMENTS. 



****************************************************** */ 



MAKESMSGSFILE: PROCEDURE: 

CALL MOVE (. 'MSG' ,. MSGSFCB + 9.3); 
MSGSFCB,MSG$FC3 (12) ,MSGSFCB (32) = 0; 

IF SEARCH (. MSGSFCB) <> 255 THEN 
CALL ERROR (3) ; 

IF MAKE (. MSGSFCB) = 255 THEN 
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CALL ERROR (5) ; 

IF OPEN (. MSGSFCB) = 255 THEN 
CALL ERROR (7) ; 

END MAKESMS GSFILE ; 

INI T : PROCEDURE: 

CALL MOVE (5DH,. MSGSFCB+ 1 , 8) ; 

CALL MAKESMSGSFILE; 

CALL MOVE (. 'DAT' , DATSFCB + 9, 3) ; 

DFCE (12) ,DFCB(32) =0; 

IF CPEN (DATSFCB) =255 THEN 
CALL ERROR (6); 

IF (DCNT: =DISKREAD (DATSFCB) ) <> 0 THEN 

CALL ERROR ( 1 ) ; 

CALL LIFT HEAD; 

END INIT ; 



INC$RM : PROCEDURE; 

RM = RM + 1 ; 

END INCSRM; 

INCSWM : PROCEDURE: 

WORKSMAP = WORKSMAP + 1; 

END INCSWM; 

PRINTSD ATASE: PROCEDURE; 

DECLARE (I, J) BYTE; 

DO I = 1 TO NUMSELSMENTS; 

IF RMPTR = EOC THEN /* END OF RECORD MAP */ 

DO; RM= 1 0 1 H ; NUMELEMENT3=I-1; RETURN; END; 

DO J = 1 TO DLSLEN; 

CALL PRINT CHAR (RMPTR) ; 

CALL INCSRM; 

END; 

CALL PRINTCHAR (' ') ; 

RM = RM + 2; 

END; 

END PRINTSDATASE; 

SAVESEXIRNSNR: PROCEDURE; 

WMPTR = E-R; /* EXTENT */ 

CALL INCSWM; 

WMPTR = ER ( 1 ) ; /* RN */ 

CALL INCSWM; 

WMPTR = ER (DLSLEN + 3) - ER(1); /* NUMBER OF RECORDS */ 

CALL INCSWM: 

END SAVESEXIRNSNR; 

PRINTSPACE: PROCEDURE; 

DECLARE I BYTE: 

DO I = 1 TO DLaLEN ; 

CALL PRINTCHAR (' '); 

END ; 

END PRINTSPACE; 

CHKSRESPONSE : PROCEDURE; 

DECLARE (I.C) BYTE; 

DO I = 1 TO NUMSELEMENTS: 

CALL PRINTCHAR (C :=READC) ; 

I? C = ■ Y • THEN 

CALL SAVESEX3RNSNR; 

PT 

IF C = 'S' THEN 

DO; RM= 1 0 1 H ; RETURN; END; 

E$R$ A = ESRSA + DLSLEN + 2; 

CALL PRINTSPACE; 

END ; 

END CHKSRESPONSE; 

SELSWE: PROCEDURE; 

DLSLEN = RMPTR; 
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CALL INCSRM; 

WORKSMAP = .MEMORY; 

NUM3ELEMENTS=1 1 ; 

CALL PRINT (.' SELECT DATA ELEMENTS TO WORK WITHS'); 
ESRSA = RM + DLSLEN ; 

DO WHILE RM < 100H; 

CALL PRINTDATASE; 

CALL CRLF: 

CALL CHKSRESPONSE; 

END; 

END SELSWE; 



SETSMEM: PROCEDURE; 

EATSAREA, BASESDATSAREA = WORKSMAP; 

TOP3MEM = SB DOS - 1; 

WORKSMAP = .MEMORY; 

DFCB(32[ = WMPTR(I); /* RN TO START READ */ 

NR = WMPTR 12 ) ; 

NRSREAD = 0; 

END SETSMEM; 

OPENSEXI: PROCEDURE; 

DECS ( 12) = WMPTR; 

IF CPEN (DATSFCB) = 255 THEN 
CALL ERROR (1) ; 

END OPENSEXT; 

READSDSREC; PROCEDURE; 

IF EFCBM2) <> WMPTR THEN 
CALL OPENSEXT: 

CALL SETSDMA (DATSAREA) ; 

IF (DCNT: =DISKREAD (DATSFCB) ) <> 0 THEN 

CALL ERROR ( 1) ; 

NR$ READ = NRSREAD + 1; 

DATSAREA = DATSAREA + 128; 

CALL SETSDMA (80H) ; 

END READSDSREC; 

READ5DAT: PROCEDURE; 

DO WHILE DATSAREA+ 1 28 < TOPSMEM; 

IF NRSHEAD = NR THEN 

IF (WORKSMAP: =W0RKSMAP+3) >= BASESDATS AREA- 1 THEN 
DO; /* FINISHED */ MORE = FALSE; RETURN; END; 
ELSE 

DO; DFCB (32) = WMPTR (1); NRSREAD = 0; 

NR = WMPTR (2) ; END; 

CALL READSDSREC; 

END; 

MORE = TRUE; 

SAVESEXT = DFCB ( 1 2) ; 

SAVESRN = DFCB (32); 

HOLDSWM = WORKSMAP; 

END READSDAT; 

RSADSMORZ; PROCEDURE; 

DECLARE HOLD ADDRESS; 

HOLD/ WORKSMAP = HOLDSWM; 

DFCB (12) = SAVESEXT; 

DFCE (32) = SAVESRN* 

DATSAREA = 3 AS ESD ATS ARE A; 

CALL READSDAT; 

WORKSMAP = HOLD; 

TSCATSAREA = DATSAREA; 

DATSAREA = B ASESDATS AREA ; 

END READSMORE; 

********** ******************************************** 

EDITING MODULE 

FUNCTION; TO ALLOW ENTRY OF DATA AND EDITING OF 
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ENTERED DATA BY USE OF LINE EDITING FUNCTIONS. THE 
USER HAY SELECT TO ENTER DATA DIRECTLY INTO THE 
CODED AREA OR BE PROMPTED AS TO WHAT INFORMATION IS 
REQUIRED. 

*********************:*******#****** 4c4e4e4c4c* 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c / 

/* PROCEDURES OF THE LINE EDITOR */ 



BACKSUP: PROCEDURE: 

IF NPTR > 0 THEN 
DO; 

NPTR = NPTR - 1; 

CALL PRINTCHAR (3S) ; 

CALL PRINTCHAR (• •) ; 

CALL PRINTCHAR (BS) ; 

END; 

ELSE 

CALL PRINTCHAR (3ELL) ; 

END BACKSUP; 

HOVESTOSOLD: PROCEDURE: 

CALL MOVE (NEWSBUF+1 ,OLD$BUF+1 , (OBUF:=NPTR) ) ; 

OPTR = 0: NPTR = 0; 

END HOVESTOSOLD; 

OLD STCSNEW: PROCEDURE; 

NBUF (NPTR:=NPTR+1) = OB UF (OPTR : =OPTR+ 1 ) ; 

END OLDSTOSNEW; 

ECHOSON: PROCEDURE; 

CALL PRINTCHAR (NBUF (NPTR : = NPTR+ 1 ) : = (OBUF (OPTR : =OPTR+ 1 ) ) ) 
END ECHOS ON ; 

COPYSONE: PROCEDURE; 

IF OPTR <= OBUF THEN 
CALL ECHOSON: 

ELSE CALL PRINTCHAR ( BELL) ; 

END COPYSONE; 

PSMOVESON: PROCEDURE; /* PARTIAL MOVE OLD TO NEW */ 

DC WHILE OPTR < OBUF; 

CALL ECHOSON; 

END ; 

END PSMOVESON; 

ENTER: PROCEDU'RS; 

IF INSERT THEN 

CALL PRINTCHAR ( ' >') ; 

ELSE 

CALL PRINTCHAR (' <’) ; 

INSERT = NOT (INSERT) ; 

END ENTER; 

PRINTSCLD: PROCEDURE; 

DECLARE I BYTE: 

DO 1= 1 TO OBUF; 

CALL PRINTCHARI (OBUF (I) ) ; 

END; 

CALL CRLF; 

END PRINTSOLD; 

PRINTSNEW: PROCEDURE; 

DECLARE I BYTE; 

DO I = 1 TO NPTR: 

CALL PRINTCHARI (NBUF (I) ) ; 

END; 

END PRINTSNEW; 

PRINTSBOTH: PROCEDURE; 

CALL PRINTSOLD; 
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CALI PRINTSNEW; 

END PRINTSBOTH; 

COP Y $R MSOSN : PROCEDURE; 

/* COPIES REMAINING CHARACTERS FOR OLD TO NEW BUFFERS */ 

DO WHILE OPTR <= OBUF; 

CALL OLDSTOSNEW; 

END: 

CALL PEINTCH AR ( ' + ' ) ; /* INDICATES WHEN DONE */ 

END C0PY$RM$0$N; 

BSSOSN: PROCEDURE: 

/* EACKSPACE OLD PTR AND NEW PTR 1 CHAR */ 

IF (OPTR > 0) AND (NPTR > 0) THEN 
EO * 

ol»TR = OPTR - 1 ; 

NPTR = NPTR - 1: 

OBUF = OBUF - 1 ; 

END; 

ELSE 

CALL PRINTCHAR (BELL) ; 

END ESSOSN; 

COPYSON: PROCEDURE (C) ; 

DECLARE (C,I) BYTE; 

I=OPTR ; 

DO WHILE OBUF(I:=I+1) <> C; 

IF I > OBUF THEN /* NO MATCH */ 

DO: 

CALL PRINTCHAR (BELL) ; 

RETURN; 

END: 

END; /* DO WHILE */ 

DO WHILE OPTR < I; 

CALL ECHOSON; 

END ; 

END COPYSCN; 

DELETE: PROCEDURE^ ECHO) ; 

DECLARE (I # J / P1 / CHAR1,E CHO) BYTE; 

P1=OPTR: . 

CHARI = READC: 

DO WHILE (OBUF (PI :=P1+1) <> CHARI); 

IF PI > OBUF THEN /* NO MATCH */ 

DO; 

CALL PRINTCHAR (BELL) ; 

RETURN; 

END; 

END; /* DO WHILE */ 

IF ECHO THEN 

DO I = OPTR + 1 TO PI ; 

CALL PRINTCHAR (PERCENT) ; 

END; 



/* NOW CONDENSE THE BUFFER */ 
J=OPTR; 

I=P 1: 

DO WHILE I <= OBUF; 

OBUF(J:=J + 1) = OBUF (I: =1 + 1) ; 

END : 

OBUF = OBUF - (P1-OPTR+1) ; 

END DELETE; 

DEL $N: PROCEDURE; 

OPTR, NPTR = 0; 

OBUE =0; 

CALL PRINTCHAR (ENDSFILE) ; 

CALL CRLF; 

END DELiN; 

DISPLAYIRM$0$N: PROCEDURE; 
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DECLARE I BYTE; 

I = 0; 

CALL CRLF ; 

DO WHILE (I: =1+1) <= OBUF: 

IF I <= OPTR THEN /* EVEN LINE */ 

CALL PRINTCHAR (' ') ; 

ELSE CALL PRINTCHAR (OBUF (I) ) ; 

END; 

CALL CRLF; 

CALL PRINTSNEW; 

END DISPLAY$RM$0$N; 

DEL 30; PROCEDURE; 

IF CPTR > 0 THEN 
EO * 

DECLARE I BYTE; 

I = OPTR- 1 ; 

DO WHILE (I: = I+1) < OBUF; 

OBUF (I) = OBUF (1+1) ; 

END; 

CALL PRINTCHAR (PERCENT) ; 

OBUF = OBUF - 1; 

END: 

ELSE CALL P RINTCH AR (BELL) ; 

END DELSO; 

ESCAPE: PROCEDURE; 

/* TURNS OFF SPECIAL MEANING OF CHARACTER TO FOLLOW 
AND ENTERS CHARACTER IN NEW BUFFER */ 

CALL PRIN TCHARI (CH AR : =R SADC) ; 

NBUF (NPTR: = NPTR+1) = CHAR; 

END ESCAPE; 

PRINTSTAB: PROCEDURE; 

IF (NPTR + 5) > SIZESNBUF THEN 

CALL PRINTCHAR (BELL) ; 

ELSE 

NBUF (NPTR : = NPTR+ 1 ) = TAB; 

CALL PRINTCHAR (TAB) ; 

END PRINTSTAB; 



/* END OF PROCEDURES CALLED FROM THE LINE EDITOR */ 



INC $DA; PROCEDURE; 

DATSAREA-- DATSAREA +1; 

END INCSDA; 

INC SC A : PROCEDURE: 

CODESA = CODESA + 1 ; 

END INCSCA; 

INC3ER: PROCEDURE; 

ERR A = ERRA + 1 ; 

END INCSER; 

MOV ESDLS NEW : PROCEDURE: 

DO WHILE NPTR <= DLSLEN; 

IF PROMPT THEN CALL OLDSTOSNEW; 

ELSE CALL ECH030N ; 

END; 

NB = NEWSBUF + NPTR + 1; 

OPTR = NPTR: 

END MOVES DL*NEW; 

MOVESCODESOLD: PROCEDURE; 

DECLARE DEST ADDRESS, D BASED DEST BYTE; 
DEST = OLDSBUF+1; 

OPTR. NPTR, OBUF = 0: 

DO WHILE DAT <> EOC ; 
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D = DAI: 

IF NOT (PROMPT) THEN CALL PRI NTCHAR (D) ; 

CALL INCSDA; 

DEST = DEST +1 ; 

OBUF = OBUF + 1 ; 

END: 

CALL CRLF: 

CALL MOVESDLSNEW; 

END MOV ENCODES OLD ; 

SETSPTR : PROCEDURE; 

DO WHILE DAT <> ERR; 

CALL INC$DA; 

END; 

CALL INCSDA ; 

3ERRA.ERR A = DAISAREA ; 

CALL INCSDA; 

DO WHILE DAT <> ERR; 

CALL INC$DA; 

EN D * 

CALl INCSDA; 

PROMPTSAREA = DAT$AREA; 

END SETSPTR; 

NEXTSDE : PROCEDURE: 

CALL MOV ESCODESOLD ; 

CALL INCSDA: 

CALL SETSPTR ; 

END NEXTSDE; 

UPDATESDAT: PROCEDURE; 

DECLARE T ADDRESS, (I, A) BYTE; 

INSSINC: PROCEDURE; 

CODE = N3UF (I) ; 1= I + 1 ; 

CALL INCSCA; 

END INSSINC; 

CODESA = BSCODESA + DLSLEN ; 

I = DLSLEN+1; 

DO WHILE (A: =1 <= NPTR) AND (I <= OBUF); 

CALL INSSINC; 

END: 

IF A THEN /* CODE LINS HAS GROWN */ 

DO: 

DO WHILE I <= NPTR+1; 

IF CODE = ERR THEN /* AT ERROR CMDS */ 

CALL ERROR (0) ; 

ELSE 

CALL INSSINC; 

END; 

CODE = EOC; 

END; 

ELSE 

DO: 

CODE = EOC; T = OLDSBUF+OBUF+ 1 ; 

DO WHILE (CODESA :=CODE$A +1) <= T; 

CODE = 0; 

END; 

END; 

END UPDATESDAT; 

******** ********** ******** * * * * * * 3 * * * * * * * * * * * * * * * * * * * * * * 

ERROR MODULE 

FUNCTION: TO CHECK FOR POSSIBLE ERROR CONDITIONS. 

ERROR COMMANDS ARE DEFINED IN DOSCMD PROCEDURE. 

***##*#** a*#*#**#***###******* i************************* 

RESENTEB: PROCEDURE; 

CALL MOVESTOSOLD; 

CALL PRINTSOLD; 
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NPTR = NB - NEWSBUF; 
CALL PRINTSNEW; 

END RESENTER; 



'WILL DESTROY OLD INFO $') ; 
'EXPECTING ALPHABETIC CHAR S'); 
•EXPECTING NUMERIC CHAR S') ; 



WARNING; PROCEDURE (I) ; 

DECLARE I BYTE; 

WARN = TRUE; 

DO CASE I; 

CALL PRINT 
CALL PRINT 
CALL PRINT 
END: /* CASE */ 

CALI CRLF ; 

END WARNING; 

INCSNB: PROCEDURE; 

NB = NB + 1 ; 

END INCSNB; 

SPSPDSCCM: PROCEDURE BYTE; 

DECLARE SPACE LIT '20H', 

PERIOD LIT ' 2EH ' , 

CO MMA TTT • ? f H ' • 

RETURN ((TN = SPACE)’OR (TN = PERIOD) 
END SPSPDSCOM; 



ALPHA; PROCEDURE BYTE: 

DECLARE LCA LIT '61H*. LCZ LIT ' 7 AH' ; 
RETURN ( ( (TN >= 'A') AND (TN <= ' Z • ) ) 
AND (TN <= LCZ)) OR SPSPDSCOM); 

END ALPHA; 



OR (TN = COMMA) ) 



OR ( (TN >= LCA), 



CHKSALPHA; PROCEDURE; 

DO WHILE TN <> '/'; 

IF NOT (ALPHA) THEN 
DO; 

CALL WARNING ( 1) ; 
RETURN ; 

END ; 

CALL INCSNB; 

END; 

END CHKSALPHA; 



NUMERIC: PROCEDURE BYTE; 
RETURN (((TN - *0') 
OR SPSPDSCOM) ; 

END NUMERIC; 



<= 9) OR (TN = 2DH /* MINUS */) 



CHKSNUMERIC: PROCEDURE; 

DO WHILE TN <> '/'; 

IF NOT (NUMERIC) THEN 
DO: CALL WARNING (2) 
CALL INCSNB; 

END; 

END CHKSNUMERIC; 



RETURN; END; 



/' 



NEXTSSF: PROCEDURE; 

DO WHILE CODE <> 
CALL INCSCA; 

END; 

CALL INCSCA; 

DO WHILE DAT <> '/' 
CALL INCSDA; 

END ; 

CALL INCSDA; 

CALL INCSNB; 

CALL INCSER; 

END NEXTSSF; 

DOSCMD : PROCEDURE; 

IF ECMD = 'O' THEN 



RETURN; ELSE 
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IF ECMD = ' A • THEN CALL CHKS ALPH A ; ELSE 
IF ECMD = ' N ' THEN CALL CHKSNUMERIC ; ELSE 
CALL ERROR (2) ; 

END DOSCMD; 

CHKSERR: PROCEDURE; 

WARN = FALSE; 

DO WHILE ECMD <> ERR; 

IF ECMD = '/' THEN 
CALL NEXTSSF; 

CALL DOSCMD; 

IF WARN THEN RETURN; 

CALL INCSER; 

END; 

END CHKSERR; 

ASKSQUESTION: PROCEDURE; 

DO WHILE DAT <> '/' i 

CALL PRINTCHAR (DAT) ; 

CALL INCSDA; 

END; 

END ASKSQUESTION; 

CHK SANSWER: PROCEDURE; 

WARN = FALSE; 

DO WHILE ECMD <> • / * ; 

CALL DOSCMD ; 

IF WARN THEN RETURN; 

CALL INCSER; 

END ; 

END CHKSANSWER; 

ENDSIP; PROCEDURE; 

OB = OLDSBUF + DLSLEN + 1; 

IF (NB:=NEW$BUF+DLSLEN+1) > NEWSBUF + NPTR THEN 
DO : 

CALL WARNING (0); 

RETURN; 

END; 

NBUF (NPTR + 1 ) = 

CALL CHKSERR; 

END ENDSPP ; 

LED IT: PROCEDURE; 

DO WHILE NPTR < SIZESNBUF; 

IF (CHAR : =READC) <= CTLZ THEN /* CONTROL CHAR */ 
DO CASE CHAR; 

/* CAS 0 NULL */ 

t 

/* CASE 1 CONTROL A */ 

CALL BACKUP; 

/* CASE 2 CONTROL B */ 

CALL MOVESTOSOLD; 

/* CASE 3 CONTROL C */ 

CALL COPYSONE; 

/* CASE 4 CONTROL D */ 

DO; 

CALL PSMOVESON; 

GO TO ENDEDIT 1 ; 

END; 

/* CASE 5 CONTROL E */ 

CALL ENTER; 

/* CASE 6 CONTROL F */ 

GO TO ENDEDIT 2 ; 
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/* CASE 7 CONTROL G */ 
CALL PRINTSBOTH; 

/* CASE 8 CONTROL H */ 
CALL PSMOVESON; 



/* CASE 9 CONTROL I 
CALL PRINTSTAB; 



V 

V 

/* CASE 11 CONTROL K */ 

V 

V 



/* CASE 10 CONTROL 
GO TO ENDEDIT1 ; 



/* CASE 12 CONTOL L 
CALL COPYSRMSOSN; 



/* CASE 13 CONTROL M 
GO TO ENDEDIT1 ; 



/* CASE 14 CONTROL N */ 
CALL BSSOSN; 

/* CASE 15 CONTROL 0 */ 

CALL COPYSON (READC) ; 

/* CASE 16 CONTROL P */ 
CALL DELETE (TRUE) ; 

/* CASE 17 CONTROL Q */ 
CALL DELSN; 

/* CASE 18 CONTROL R */ 
CALL DISPLAYS RMSOSN ; 

/* CASE 19 CONTROL S */ 
CALL DEL$0 ; 

/* CASE 20 CONTROL T */ 



/* CASE 21 CONTROL U */ 
CALL COPYSON (TAB) ; 

/* CASE 22 CONTROL V */ 
CALL ESCAPE; 

/* CASE 23 CONTROL W */ 
; /* LATER */ 

/* CASE 24 CONTROL X */ 
CALL DELETE (FALSE) ; 

/♦CASE 25 CONTROL Y */ 
DO; 

CALL P$ MOVE SON ; 

CALL MOVESTOSOLD; 

END; 

/* CASE 26 CONTROL Z */ 
CALL COPYSON (READC) ; 



END; 

ELSE /* CHECK SPECIAL CASES */ 
IF CHAR = RUBOUT THEN 
CALL BACKUP; 

ELSE 

DO; 

CALL PRINTCHAR (CHAR) ; 
N3UF (NPTR: = NPTR+1) =CHAR; 
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IF NPTR = 72 THEN CALL PRINTCHAR (BELL) ; 

IF NOT (INSERT) THEN OPTR = OPTR +. 1; 

END; 

END; /* DO WHILE */ 

/* ARRI7E HERE IF BUFFER FULL */ 

CALL PRINTCHAR (BELL) ; 

ENDEDIT 1 : 

ENDEDIT 2: CALL CRLF ; 

END LEDIT; 

/* ****** **************** ****************** **** ********** 

OUTPUT MODULE 

FUNCTION: TO UPDATE THE DAT FILE AND'THE 
INFORMATION JUST EDITED TO THE MESSAGE FILE. 



* ******************** **** ** ** ************** * *** **** *** * / 
INCSMSG: PROCEDURE; 

IF (MSG$AfiEA: = MSG$AREA + 1) < 100H THEN 

RETURN: 

IF DISK WRITE (.MSGSFCB) <> 0 THEN 
CALL ERROR (4); 

MSGSAREA = 80H; 

END INCSMSG; 

MOVESMSG : PROCEDURE; 

IF PRINTSLABEL THEN DATSAREA = BSCODESA; 

ELSE DATSAREA = 3SC0DESA + DL$LEN + 1; 

DO WHILE DAT <> EOC; 

MSG = DAT; 

CALL INCSMSG; 

CALL INCSDA ; 

END; 

MSG = CR; 

CALL INCSMSG; 

MSG = LF: 

CALL INCSMSG; 

END MOVES'MSG; 

WRITESMSG: PROCEDURE; 

MSG = CTL Z ' 

IF DISKWRITE (.MSGSFCB) <> 0 THEN 
CALL ERROR (4) ; 

END WRITESMSG; 

CLOSESFILES: PROCEDURE; 

IF CLOSE ( .MSGSFCB) = 255 THEN 
CALL ERROR (7) ; 

DFCB (12) = 5AVESEXT; 

DFCB (32) = SAVESRN; 

IF CLOSE (DATSFCB) = 255 THEN 
CALL ERROR (6) ; 

END CLOSESFILES; 

BLANKSBUF: PROCEDURE; 

DECLARE A ADDRESS , (B BASED A , I) BYTE; 

A = .BUFFER; 

DO I = 1 TO 180; 

B = 0; A = A + 1; 

END; 

END BLANKSBUF; 

BASESNEXTSDE: PROCEDURE; 

DECLARE I BYTE; 

DO I = 1 TO WMPTR (2) ; 

BSCODESA = 3SC0DESA + 128; 

END : 

WORKSMAP = WORKSMAP + 3; 
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END BASES NEXTSDE ; 



UPD ATE $ DATS FI 
WORKSMAP 
BSCODESA 
DO WHILE 
CALL 
DFCB 
DFCB 
CALL 
IF D 
C 

CALL 

END ; 

CALL SETS 
END UPDAT 



LE: PROCEDURE; 

= .MEMORY; 

= BASESDATSAREA; 
BSCODESA < TSDATSAREA; 
MOVESMSG: 

(12) = WMPTR; 

(32) = WMPTR (1) ; 

SETDMA (BSCODESA) ; 
ISKWRITE (DATSFCB) <> 0 
ALL ERROR (4) ; 
BASESNEXTSDE; 

DMA (80H) : 

ESDATSFILE; 



THEN 



EDIT: PROCEDURE; 

CONTINUE: 

DO WHILE (DATSAREA < TSDATSAREA) ; 
CALL NEXT SDE ; 

IF PROMPT THEN 

DO WHILE DAT <> EOP; 

CALL ASKSQUESTION ; 

WARN = TRUE; 

DO WHILE WARN; 

CALL LEDIT; 

NBUF (NPTR: =NPTR+ 1) 
CALL CHKSANSWER; 

END; 

CALL NEXTSSF; 

END; 

ELSE 
DO : 

CALL LEDIT; 

CALL ENDSIP; 

END: 

IF WARN THEN CALL RESENTER; 

ELSE 

DO; 

CALL UPDATESDAT; 

CALL BLANKSBUF: 

CALL BASESNEXTSDE; 

DATSAREA, CODESA = BSCODESA; 
END; 

END; /* DO WHILE */ 

CALL UPDATESDATSFILE; 

IF MORE THEN 
DO; 

CALL READSMORE; 

GO TO CONTINUE; 

END: 

CALL WRITESMSG: 

CALL CLOSESFILES; 

GO TO BOOT; 

END EDIT; 



= * 



/' 



/******* START MAIN PROGRAM HERE 






*/ 



OLDSBUF = ( NEWS BUF := .BUFFER) +90; 

OBUF = 0; 

CALL INIT ; 

CALL SELSWE; 

CALL SETSMEM; 

CALL READSDAT; 

CALL LIFTHEAD: 

TSDATSAREA = DATSAREA; 

3SC0DESA,C0DESA .DATSAREA = BASESDATS AR EA; 
WORKSMAP = .MEMORY; 
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CALL CRLF; 

CALL PRINT ( . ' D ATA LABELS TO BE IN THE REPORT?$'); 
CALL PRINTCHAR (CHAR := READC) ; 

CAL L CRLF * 

IF CHAR = * 1 Y' THEN PRINTSLABEL = TRUE; 

CALL PRINT ( . 1 DO YOU WISH TO BE PROMPTED?$ ' ) ; 

CALL PRINTCHAR (CHAR : = READC) ; 

CALL CRLF; 

IF CHAR = 1 Y • THEN PROMPT = TRUE; 

CALL EDIT; 

EOF 
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/ * ** ******************** ******************************** 

PROGRAM DESIGNED TO CREATE DAT EXECUTABLE FILES USED 
IN CONJUNCTION WITH REPORT ORIGINATION SYSTEM (ROS) . 

ROS IS DESIGNED TO GENERATE FORMATTED REPORTS. 

* **#* **************$*****:!c* ******************* ******** * / 

100H: 



/ * ****** ** ********************************************** 

INITIALIZE DECLARATIONS 

***** ******************** ***************************** */ 
DECLARE 

'LITERALLY' , 



LIT 


LITERALLY 


BOOT 


LIT 


'O' , 


ENTRY 


LIT 


•0005 


TRUE 


LIT 


' 1 ' , 


FALSE 


LIT 


• O' 


FOREVER 


LIT 


• WHIL 


CR 


LIT 


•ODH • 


LF 


LIT 


•OAH* 


DCNT 




BYTE, 


CTI 


LIT 


•O' , 


CTS 


LIT 


•1'; 



****************** ******** **************************** 

INPUT AND EDITING DECLARATIONS 

********* ** ********** *** * ********** ******************* */ 
DECLARE 

*/ 



BS 


LIT 


' 08H ' , /* BACKSPACE 


PERCENT 


LIT 


' 25H ' , 


BELL 


LIT 


•07H' , 


TAB 


LIT 


' 09H ' , 


EO? 


LIT 


' 5EH ' , /* UP-ARROW; END 


ENDSFILE 


LIT 


' 5CH ' , /*BACK SLANT */ 


EOC 


LIT 


' 7CH ' , /*BAR ; END OF CO: 


ERR 


LIT 


' 7EH ' , /* TILDE; END OF 


CTLZ 


LIT 


' 1 AH ' , 


RUBOUT 


LIT 


'7FH ' , 


DATSFCB 




ADDRESS INITIAL (5 CH) , 


DFCB BASED DATSFCB (33) BYTE, 


NUMSREC 




BYTE, 



BYTE, 
ADDRESS, 



DLSLEN 
TMEM 

R2C0RDSMA P ADDRESS, 

EMPTR BASED RECORDSMAP BYTE, 

EXT 3YTE INITIAL (0), 

ADD] 

BYTE, 

ADDRESS, 
ADDRESS, 

BYTE, 

•90' 



>RESS, 



STORE 

SP BASED STORE 
BSTORE 
SPTR 

BUFFER (180) 

SIZESNBUF LIT 

NEWSBUF ADDRESS, 

NBUF BASED NEW$3UF BYTE, 

NPTR BYTE, 

OLD $3UF ADDRESS, 

OBUF BASED OLDSBUF BYTE, 

OPTR BYTE, 

INSERT BYTE INITIAL (FALSE) , 

CHAR BYTE, 

MODS 128$M ASK LIT '0FF80H', /* GIVES MEMORY SIZE 

IN MULIPLES OF 128 BYTE BLOCKS */ 

BDOSA ADDRESS INITIAL (0006H) , 

SBDOS BASED BDOSA ADDRESS; 
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CRTIN: PROCEDURE BYTE; 

DO WHILE INPUT (CTS) ; 

END ■ 

RETURN NOT INPUT (CTI) AND 07FH; 

END CRTIN; 

READC: PROCEDURE BYTE; 

/* GET A CHARACTER FROM THE CONSOLE AND TRANSLATE TO 
UPPER CASE */ 

DECLARE C BYTE' 

IF (C: = CRTIN) ^5>= 1 1 0$000 1 B /* LOWER CASE A */ 

AND C <= 0111101 OB /* LOWER CASE Z */ THEN 
C = C AND 101S1111B; /* BECOMES UPPER CASE */ 

RETURN C; 

END READC; 

MON1: PROCEDURE (FUNC, INFO); 

DECLARE FUNC BYTE, INFO ADDRESS; 

GO TO ENTRY; 

END MON1; 

MON2 PROCEDURE (FUNC, INFO) BYTE; 

DECLARE FUNC BYTE, INFO ADDRESS; 

GO TO ENTRY; 

END MON2; 

PRINTCHAR; PROCEDURE (B) ; 

DECLARE 3 BYTE; 

CALL MON1 {2 , B) ; 

END PRINTCHAR; 

PRI NTCHARI: PROCEDURE (C) ; 

DECLARE C BYTE; 

IF (C AND IIOSOOOOS) = 0 /* CONTROL CHAR */ THEN 
DO: 

CALL PRINTCHAR (EOP) ; 

CALL PRINTCHAR (C OR 40H) ; 

END; 

ELSE CALL PRINTCHAR (C) ; 

END PRINT.CH ARI ; 

CRLF : PROCEDURE: 

CALL PRINTCHAR (CR) ; 

CALL PRINTCHAR (LF ; 

END CRLF; 

PRINT: PROCEDURE (A) ; 

DECLARE A ADDRESS; 

CALL MON 1 (9, A) ; 

CALL CRLF ; 

END PRINT; 

MOVE: PROCEDURE (SOURCE ,DEST, N) ; 

DECLARE ( SOURCE , DEST) ADDRESS, 

(S BASED SOURCE, D BASED DEST, N ) BYTE; 

DO WHILE (N: =N- 1) <> 255; 

D=S ; SOURCE=SOURCE+ 1 ; DEST=DEST+1 ; 

END; 

END MOVE; 

FILL; PROCEDUREjfSTART, DEST, CHAR) ; 

DECLARE (START, DEST) ADDRESS, 

(S BASED START, CHAR) BYTE; 

DO WHILE START < DEST; 

S = CHAR; 

START = START + 1 ; 

END; 

END FILL; 

ERROR; PROCEDURE (I) ; 
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DECLARE I BYTE; 
DO CASE I; 
CALL PRINT 
CALL PRINT 
CALL PRINT 
END: 

CALL CRLF; 

GO TO 300T ; 

END ERROR; 



•LACK ERROR COMMAND SPACE $•) ; 
' DISK WRITE ERROR S'); 

•FILE NOT PRESENT $•) ; 



/ * ***************************** ************************* 



INPUT AND EDITING MODULE 



***************************** ************************* */ 



PROMPT; PROCEDURE (I) ; 

DECLARE I BYTE: 

CALL MON1 (9, . 'EXPECTING $') ; 
DO CASE I; 

CALL PRINT 
CALL PRINT 
CALL PRINT 
END; 

END PROMPT; 



. ' CODE INFO S'): 

. ' ERROR COMDS $') ; 
. 'PROMPT INFO ; 



INCSRM: PROCEDURE; 

RECORDSMAP = RECORDSMAP 
END INCSRM; 
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GOSNEXTSREC: PROCEDURE: 

/* INCREMENTS STORAGE POINTER TO NEXT EVEN 
RECORD SECTOR V 
DO WHILE SPTR < STORE: 

SPTR = SPTR + 123; 

NUM$REC=NUM$REC+1 ; 

IF NUMSREC = 128 THEN 
DO ; 

EXT = EXT + 1; 

NUMSREC = 0; 

END; 

END: 

STORE = SPTR- 1 ; 

END GOSNEXT $REC ; 



MOV E$DL : PROCEDURE: 

DECLARE A -ADDRESS , I BYTE; 

1=0; A=RECORD$MAP+DL$LEN; 

DO WHILE (RECORDS MAP: = RECORDS MAP + 1) 
RMPTR = OBUF (I: =1 + 1) ; 

END * 

RMPTR = EXT ; 

CALL INCSRM: 

RMPTR = NUMJREC; 

END MOVESDL; 

WRITE; PROCEDURE: 

DECLARE A ADDRESS; 

A = .MEMORY; 

DO “ 



<= A; 



)0 WHILE (A: =A+ 12 3) < STORE; 

CALL MOVE (A,80H, 128); 

CF (DCNT := MON2?21 / DAT$FCB) 
CALL ERROR (1) ; 



) <> 0 THEN 



END: 

STORE=3STORE ;SPTR=B STORE; 

CALL MON1 (12,0) ; /* LIFT READ WRITE HEAD */ 

END WRITE; 

INCSSTORE: PROCEDURE; 

/* CHECKS FOR MEMORY OVERFLOW INCREMENTS STORAGE PTR */ 
IF (STORE :=STORE+ 1 ) > TMEM THEN 

CALL WRITE; 
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END INCSSTORE; 

MOVESSTORE: PROCEDURE: 

/* STORES INFORMATION FROM INPUT TO FILE MEMORY AREA */ 
DECLARE I BYTE; 

DO 1=1 TO OBUF ; 

CALL INCSSTORE; 

SP = OBUF (I) ; 

END; 

END MOVESSTORE; 

FILLSCODESZERO: PROCEDURE; 

DECLARE (A , T) ADDRESS, B BASED A BYTE; 

A = STORE; T = SPTR + 128; 

DO WHILE (A; = A+ 1 ) < T; 

B = 0; 

END; 

END FILLSCODESZERO; 

ENDSDL ; PROCEDURE: 

/* CHARACTER IS A BAR (|) INDICATES END OF CODE AREA */ 
CALL GOSNEXTSREC; 

CALL MOVESDL ; 

CALL MOVESSTORE; 

CALL INCSSTORE; 

SP = EOC; 

CALL FILLSCODESZERO; 

CALL CRLF ; 

CALL PROMPT (1) ; 

END ENDSDL; 

ENDSREC: PROCEDURE; 

/* CALL WHEN A UP-ARROW IS ENTERED FROM THE KEYBOARD. 
INDICATES END OF DECODED INFORMATION */ 

CALL MOVESSTORE; 

CALI INCSSTORE; 

SP = EOP: 

CALL CRLF; 

CALL PROMPT (0) ; 

END ENDSREC; 

ENDSERR: PROCEDURE; 

/* CALLED WHEN (TILDE) ENTERED AT KEYBOARD 
INDICATES END OF ERROR CHECKS */ 

BACKSSTORE; PROCEDURE: 

STORE = SPTR + 127; /* TO NEXT RECORD - 1 */ 

SP = ERR; 

STORE = STORE - 1; 

OBUF = OBUF + 1 ; 

DO WHILE (OBUF: =OBUF-1) <> 0; 

IF SP = EOC THEN 

CALL ERROR (0); 

SP = OBUF (OBUF) ; 

STORE = STORE - 1; 

END; 

SP = ERR: 

END BACKSSTORE; 

CALL BACKSSTORE; 

CALL GGSN EXTSREC; 

CALL CRLF; 

CALL PROMPT (2) ; 

END ENDSERR; 

ENDSF: PROCEDURE; 

/* CALLED WHEN END FILE ( ) BLACKSLASH ENTERED INDICATES 
END OF FILE */ 

DECLARE ( EX , NR) BYTE; 

CALL MOVESSTORE; 

CALL INCSSTORE; 

SP=ENDSFILE; 
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CALI WRITE; 

CALL INCSRM; 

RMPTR = EOC; /* MARK END OF RECORDSMAP */ 

RECORD$MA P = RECORDSMAP + DLSLEN; /* SAVE EXT AND RN OF 
NEXT RECORD TO BE WRITTEN */ 

EMPTR = DFCB (12) ; 

CALL INCSRM; 

RMPTR = DFCB (32) ; 

EX = DFCB (12); NR = DFCB (32); 

DFCB (32) .DFCB (12) =0; 

CALL MOVE (. MEMORY. 30H, 128) ; 

IF (DCNT := MON 2 (21 , DATSFCB) ) <> 0 THEN 

CALL ERROR (1) ; 

DFC E ( 12) = EX; DFCB (32) = NR; 

IF MON2(16, DATSFCB) = 255 THEN /* CLOSE FILE */ 

CALL ERROR (2) ; 

GO TO BOOT; 

END END$F; 

3ACK3UP: PROCEDURE; 

I? NPTR > 0 THEN 
DO; 

NPTR = NPTR -1; 

CALL PRINTCHAR (BS) ; 

CALL PRINTCHAR (' • ) ; 

CALL PRINTCHAR (BS) ; 

END; 

ELSE 

CALL PRINTCHAR (BELL) ; 

END 3ACKSUP; 

MOVE3TOSOLD ; PROCEDURE; 

CALL MOVE (NEWSBUF+1 ,OLDSBUF+1 , (OBUF; = NPTR) ) ; 

OPTR = 0; NPTR = 0; 

CALL CRLF: 

END MOVESTOSOLD; 

ECHOSON: PROCEDURE; 

CALL PRINTCHAR (NBUF ( NPTR : = NPTR + 1 ) : = (OBUF (OPTR ; =OPTR+ 1 ) ) ) 
END ECHOSON; 

COPYSONE: PROCEDURE; 

IF OPTR < OBUF THEN 
CALL ECHOSON; 

ELSE CALL PRINTCHAR (BELL) ; 

END COPYSONE; 

PSMOVESON; PROCEDURE; /* PARTIAL MOVE OLD TO NEW */ 

DO WHILE OPTR < 03UF; 

CALL ECHOSON; 

END; 

END PSMOVESON; 

ENTER; PROCEDURE: 

IF INSERT THEN 

CALL PRINTCHAR ('>'); 

ELSE 

CALL PRINTCHAR (’ C) J 
INSERT = NOT (INSERT) ; 

END ENTER; 

PRINTSOLD; PROCEDURE; 

DECLARE I BYTE; 

DO 1= 1 TO OBUF; 

CALL PRINTCHARI (OBUF (I) ) ; 



END ; 

CALI CRLF; 

END PRINTSOLD; 

PRINTSNEW: PROCEDURE; 
DECLARE I 3YTE ; 

DO I = 1 TO NPTR; 
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CALL PRINTCHARI (N3UF (I) ) ; 

END ; 

END PRINTSNEW; 

PRINTSEOTH: PROCEDURE: 

CALL PRINTSOLD; 

CALL PRINTSNEW; 

END PRINTSBOTH; 

COPYSEMSOSN: PROCEDURE; 

/* COPIES REMAINING CHARACTERS FOR OLD TO NEW BUFFERS */ 

DO WHILE OPTR <= OBUF; 

NBUF (NPTR:=NPTR+ 1) = OBUF (OPTR : = OPTR+ 1 ) ; 

END : 

CALL PRINTCHAR (' + ') ; /* INDICATES WHEN DONE */ 

END COPYSRMSOSN; 



flS$0$N: PROCEDURE; 

/* EACKSPACE OLD PTR AND NEW 
IF (OPTR > 0) AND (NPTR > 0) 
DO; 

OPTR = OPTR - 1 ; 

NPTR = NPTR - 1 : 

OBUF = OBUF - 1; 

END; 

ELSE 

CALL PRINTCHAR (3ELL) ; 

END BSSOSN; 



PTR 1 CHAR 
THEN 



LE OBUF (I := 1+ 1 ) <> C; 

I > OBUF THEN /* NO MATCH */ 



COPYSON: PROCEDURE (C,NEXT) ,* 
DECLARE (C, I, NEXT) BYTE; 
I=OPTR; 

DO WHILE 
IF 

DO , 

CALL PRINTCHAR (BELL) ; 
RETURN; 

END: 

END; /* DO WHILE */ 

IF NOT (NEXT) THEN 1=1-1; 



DO 



WHILE OPTR < I; 
CALL ECHOSON; 



*/ 



END * 

END * COPYSON ; 

DELETE: PROCEDURE (ECHO) ; 

/* ECHO TRUE INDICATES TO START FROM THE CURRENT 
POSITION OF OLD BUFFER AND ECHO A % (PERCENT) FOR THE 
DELETED CHARACTER. ECHO FALSE INDICATES TO START AT 
THE BEGINNING OF THE OLD BUFFER AND DON'T ECHO FOR 
THE DELETED CHARACTERS. */ 

DECLARE (I / J, PI, CHARI, ECHO) BYTE; 

I? ECHO THEN PI = 0; 

ELSE PI = OPTR; 

CHARI = READC: 

DO WHILE (OBUF (PI : = P1 +1) <> CHARI); 

IF PI > OBUF THEN /* NO MATCH V 
DO ; 

CALL PRINTCHAR (BELL) ; 

RETURN; 



END; 

END; /* DO WHILE V 
IF ECHO THEN 

DO I = OPTR+1 TO PI ; 

CALL PRINTCHAR (PERCENT) ; 

END ; 

/* NOW CONDENSE THE BUFFER */ 
J=OPTR; 
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I=P 1; 

DO WHILE I <= OBUF ; 

OBUF(J:=J + 1) = OBUF (I: =1 + 1) ; 

END: 

OBUF = OBUF - (P1-OPTR+1) ; 

END DELETE; 

DELSN: PROCEDURE; 

NPTR=0 ; OPTR=0; 

CALL PRINTCHAR (ENDSFILE) ; 

CALL CRLF ; 

END DEL$N; 

DIS ?LAY$RM$0$ N: PROCEDURE; 

DECLARE I BYTE; 

1 = 0 ; 

CALI CRLF; 

DO WHILE (I: =1+1) <= OBUF: 

IF I <= OPTR THEN /* EVEN LINE */ 

CALL PRINTCHAR (' ' ) ; 

ELSE 

CALL PRINTCHAR (OBUF (I) ) ; 

END; 

CALL CRLF; 

CALL PRINTSNEW: 

END DISPLAYSRMJOSN; 

DELSO: PROCEDURE; 

IF OPTR > 0 THEN 
DO: 

DECLARE I BYTE; 

I = OPTR - 1 ; 

DO WHILE (I: =1+ 1) < OBUF; 

OBUF (I) = OBUF (1+1) ; 

END: 

CALL PRINTCHAR (PERCENT) ; 

OBUF = OBUF - T; 

END; 

ELSE CALL PRINTCHAR (BELL) ; 

END DELSO; 

ESCAPE: PROCEDURE; 

/* TURNS' OFF SPECIAL MEANING OF CHARACTER TO FOLLOW 
AND ENTERS CHARACTER IN NEW BUFFER */ 

CALL PRINTCHARI (CHAR :=READC) ; 

NBUFfNPTR :=NPTR+1) = CHAR; 

END ESCAPE; 

CONTSFILL: PROCEDURE; 

CALL MOVESSTORE; 

CALI CRLF; 

END CONTSFILL; 

PRINTSTAE: PROCEDURE; 

IF (NPTR + 5) > SIZESNBUF THEN 

CALL PRINTCHAR (BELL) ; 

ELSE 

NBUF (NPTR:=NPTR+ 1) = TAB; 

CALL PRINTCHAR (TA3) ; 

END PRINTSTAB; 

LSDIT: PROCEDURE: 

/* READS CHARACTERS FROM THE CONSOLE AND ALLOWS EDITING 
USING THE PROCEDURES OF A LINE EDITOR */ 

OPTR = 0; NPTR = 0; 

DO WHILE NPTR < SIZSSNBUF; 

IF (CHAR : =READC) <= CTLZ THEN /* CONTROL CHAR */ 

DO CASE CHAR; 

/* CAS 0 NULL */ 
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/* CASE 1 CONTROL A */ 
CALL BACKUP; 

/* CASE 2 CONTROL 3 */ 

CALL MOVESTOSOLD; 

/* CASE 3 CONTROL C */ 
CALL COPYSONE; 

/* CASE 4 CONTROL D */ 
DO ; 

CALL PSMOVESON ; 

GO TO ENDEDIT1; 

END; 

/* CASE 5 CONTROL E */ 
CALL ENTER; 

/* CASE 6 CONTROL F */ 
GO TO ENDEDIT2; 

/* CASE 7 CONTROL G */ 
CALL PRINTSBOTH; 

/* CASE 8 CONTROL H */ 
CALL PSBOVESON; 

/* CASE 9 CONTROL I */ 
CALL PRINTSTAB; 

/* CASE 10 CONTROL J */ 
GO TO ENDEDIT1; 

/* CASE 11 CONTROL K */ 

t 

/* CASE 12 CONTOL L */ 
CALL COPYSRBSOSN; 

/* CASE 13 CONTROL H */ 
GO TO ENDEDIT 1 ; 

/* CASE 14 CONTROL N */ 
CALL BSSOSN; 

/* CASE 15 CONTROL 0 */ 

•CALL COPYSON (READC, FALSE) 

/* CASE 16 CONTROL P */ 
CALL DELETE (TRUE) ; 

/* CASE 17 CONTROL Q */ 
CALL DELSN ; 

/* CASE 18 CONTROL R */ 
CALL DISPLAYS RB SO SN ; 

/* CASE 19 CONTROL S */ 
CALL DELSO; 

/* CASE 20 CONTROL T */ 
CALL CONTSFILL; 

/* CASE 21 CONTROL U */ 
CALL COPYSON (TAB, FALSE) ; 

/* CASE 22 CONTROL V */ 
CALL ESCAPE; 

/* CASE 23 CONTROL W */ 

; /* LATER */ 
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/* CASE 24 CONTROL X */ 
CALL DELETE (FALSE) ; 

/♦CASE 25 CONTROL Y */ 

DO ; 

CALL PSMOVESON; 

CALL MOVESTOSOLD; 

END ; 

/* CASE 26 CONTROL Z */ 
CALL COPYSON ( READC , TRUE) ; 



END: 

ELSE /* CHECK SPECIAL CASES */ 

IF CHAR = ROBOUI THEN 
CALL BACKUP; 

ELSE 

IF CHAR = EOC THEN /* INDICATES END OF CODED INFO */ 
DO; CALL MOVESTOSOLD; CALL ENDSDL; END; 

ELSE 

IF CHAR = ERR THEN 

DO; CALL MOVESTOSOLD; CALL ENDSERR; END; 

ELS E 

IF CHAR = SOP THEN /* END OF PROMPT INFORMATION */ 

DO: CALL MOVESTOSOLD; CALL ENDSREC; END; 

ELSE 

IF CHAR = ENDSFILE THEN /* END OF FILE */ 

DO: CALL MOVESTOSOLD; CALL ENDSF ; END; 

ELSE 

DO; 

CALL PRINTCHAR (CHAR) ; 

N3UF (NPTR: = NPTR+1) =CHAR; 

IF NOT (INSERT) THEN OPTR = OPTR + 1; 

IF NPTR = 72 THEN CALL PRINTCHAR (3ELL) ; 

END; 

END; /* DO WHILE */ 

/♦ ARRIVE HERE IF BUFFER FULL */ 

CALL PRI-NTCHAR(EELL) ; 

ENDEDIT 1 : CALL MOVESTOSOLD; 

ENDEDIT2: 

END LEDIT; 

/* ST-ART MAIN PROGRAM HERE */ 

OLDSBUF = (NEWSBUF ;= .BUFFER) +90; 

OBUE = 0; 

CALL MOVE (.'DAT* DATSFCB + 9 , 3) ; 

DFCB.DFCB jl2) .DFC3 (32) = 0: 

IF MON2(17, DATSFCB) <> 255 THEN /*FILE EXISTS */ 

DO; 

CALL PRIN T ( . ' FILE ALREADY EXISTS $•); 

GO TO BOOT; 

END; 

IF MGN2 (2 2, DATSFCB) = 255 THEN 
DO ; 

CALL PRINT (.' OUT OF DIRECTORY SPACE S'); 

GO TO BOOT; 

END; 

IF (DCNT: =MON2(15, DATSFCB) ) = 255 THEN /* CAN'T OPEN */ 

CALL ERROR (2) ; 

CALL MON 1 (12,0) ; /* LIFT READ WRITE HEAD */ 

/* ARRIVE HERE WITH NEW FILE CREATED */ 

DFCB (32) = 1 ; /* RESERVE FIRST RECORD FOR RECORD MAP */ 

TMEM = (SBDOS - 1) AND MODS 1 2 8SM AS K ; 

CALL FILL (.MEMORY, TMEM,0) ; 

5 PTR, RECORDS MAP = .MEMORY; 

BSTORE = .MEMORY + 128; 

STORE = BSTORE; 
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NUMSREC = 0; 

CALL PRINT (. 'LENGTH OF DATA LABELS TO BE USED?$') 
CALL PRINTCHAR ( CHAR : =RE ADC) ; 

CALL CR LF * 

MEMORY, DL JLEN = CHAR AND OFH ; 

CALL PROMPT (0) ; 

DO FOREVER: 

CALL LEDIT; 

END; 

EOF 
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